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

Fix macros when and unless

Browse source 
Both support implicit progn, not just one expression.
This commit is contained in:
madmaurice 2021-04-06 23:36:06 +02:00
parent 5c37830ef4
commit b930ed8eba
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/Minilisp.pm
View file

@ -720,7 +720,7 @@ sub macro_when {
my $ts = shift; my $ts = shift;
my $condition = parser_expr($ts); my $condition = parser_expr($ts);
my $work = parser_expr($ts); my $work = macro_progn($ts);
return sub { return sub {
my $ctx = shift; my $ctx = shift;
@ -739,7 +739,7 @@ sub macro_unless {
my $ts = shift; my $ts = shift;
my $condition = parser_expr($ts); my $condition = parser_expr($ts);
my $work = parser_expr($ts); my $work = macro_progn($ts);
return sub { return sub {
my $ctx = shift; my $ctx = shift;