updated the compiler to make 'do' handling more consistent with {}

2024-10-12 13:59:23 +09:00
parent 17550d44c5
commit 7ecb5d36ad
7 changed files with 72 additions and 42 deletions
--- a/t/var-01.hcl
+++ b/t/var-01.hcl
@ -85,8 +85,8 @@ if (nqv? R false) (print "ERROR: R is not false\n") \
 else (printf "OK: %O\n" R)

 set v #(
-	(do |a b| (set a 10) (set b 20) (+ a b) )
- 	(do |a b| (set a 11) (set b 21) (+ a b) )
+	{ |a b| set a 10; set b 20; + a b }
+	{ |a b| set a 11; set b 21; + a b }
   	999
 )