From 7263ddf7e90398e321a1d4fb44b58480119e5c8b Mon Sep 17 00:00:00 2001
From: hyung-hwan <hyunghwan.chung@gmail.com>
Date: Sat, 30 Jul 2022 16:07:39 +0000
Subject: [PATCH] added a test case for vlist inside the 'do' expression inside
 a data list

---
 t/var-01.hcl | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/t/var-01.hcl b/t/var-01.hcl
index 71a3044..7580616 100644
--- a/t/var-01.hcl
+++ b/t/var-01.hcl
@@ -95,3 +95,17 @@
 
 (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) )
+   		999
+	)
+)
+
+(set v2 #(30 32 999))
+
+(if (nql? v v2) (print "ERROR: v1 and v2 are not equal\n")
+ else (printf "OK: v and v2 equal\n"))
+