madmaurice/Minilisp.pm
1
1
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

equal: nil equals nil

Browse source
This commit is contained in:
madmaurice 2021-04-10 22:35:50 +02:00
parent 19de2ff4e8
commit 97d472bf6a
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/Minilisp.pm
View file

@ -199,7 +199,11 @@ sub lisp_format {
sub lisp_equal { sub lisp_equal {
my ($a, $b) = @_; my ($a, $b) = @_;
if ( ref($a) eq "ARRAY" && ref($b) eq "ARRAY" ) if ( !defined($a) && !defined($b) )
{
return LISP_TRUE;
}
elsif ( ref($a) eq "ARRAY" && ref($b) eq "ARRAY" )
{ {
return LISP_FALSE unless scalar(@$a) == scalar(@$b); return LISP_FALSE unless scalar(@$a) == scalar(@$b);