Commit 411a4d73 authored by Juergen Nickelsen's avatar Juergen Nickelsen

a debug for Beq (which was quite helpful despite the error in Lisp)

parent 36ac337d
...@@ -410,12 +410,17 @@ sub Beq { ...@@ -410,12 +410,17 @@ sub Beq {
my $type1 = ref($arg1); my $type1 = ref($arg1);
my $type2 = ref($arg2); my $type2 = ref($arg2);
return $Nil unless $type1 eq $type2; my $result;
if ($type1 eq "") { if ($type1 ne $type2) {
return tornil($arg1 eq $arg2); $result = $Nil;
} elsif ($type1 eq "") {
$result = tornil($arg1 eq $arg2);
} else { } else {
return tornil($arg1 == $arg2); $result = tornil($arg1 == $arg2);
} }
# debug("eq %s %s / %s %s -> %s",
# $arg1, $arg2, "$arg1", "$arg2", $result);
return $result;
} }
sub Bif { sub Bif {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment