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

Fix 'and': return nil if it has no operands

Browse source
This commit is contained in:
madmaurice 2021-04-08 23:49:04 +02:00
parent 6bff33af20
commit c79b2aabf4
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/Minilisp.pm
View file

@ -852,6 +852,8 @@ sub macro_and {
return sub { return sub {
my $ctx = shift; my $ctx = shift;
return LISP_FALSE unless @operands_parsed;
my $v = LISP_TRUE; my $v = LISP_TRUE;
my @operands = @operands_parsed; my @operands = @operands_parsed;
while (from_lisp_bool($v) && (my $op = shift @operands)) while (from_lisp_bool($v) && (my $op = shift @operands))