From b930ed8ebab0424c44621c12de3f062509cbff53 Mon Sep 17 00:00:00 2001
From: MadMaurice <madmaurice@zom.bi>
Date: Tue, 6 Apr 2021 23:36:06 +0200
Subject: [PATCH] Fix macros when and unless

Both support implicit progn, not just one expression.
---
 lib/Minilisp.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Minilisp.pm b/lib/Minilisp.pm
index 77fb755..b3dd445 100644
--- a/lib/Minilisp.pm
+++ b/lib/Minilisp.pm
@@ -720,7 +720,7 @@ sub macro_when {
   my $ts = shift;
 
   my $condition = parser_expr($ts);
-  my $work = parser_expr($ts);
+  my $work = macro_progn($ts);
 
   return sub {
     my $ctx = shift;
@@ -739,7 +739,7 @@ sub macro_unless {
   my $ts = shift;
 
   my $condition = parser_expr($ts);
-  my $work = parser_expr($ts);
+  my $work = macro_progn($ts);
 
   return sub {
     my $ctx = shift;