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 {
my $type1 = ref($arg1);
my $type2 = ref($arg2);
return $Nil unless $type1 eq $type2;
if ($type1 eq "") {
return tornil($arg1 eq $arg2);
my $result;
if ($type1 ne $type2) {
$result = $Nil;
} elsif ($type1 eq "") {
$result = tornil($arg1 eq $arg2);
} 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 {
......
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