fixed a syntax error in var-01.hcl

t/run.sh

@@ -1,3 +1,3 @@
 #!/bin/sh
-$@ | grep -E ^ERROR: && exit 1
+$@ 2>&1 | grep -Eq ^ERROR: && exit 1
 exit 0

t/var-01.hcl

@@ -74,6 +74,7 @@
 	)
 
 	(defun x()
+		(set R
 			(do 
 				| x |
 				(set x 1)
@@ -81,7 +82,8 @@
 					(defun Q() x)
 					(set x (+ x 1))
 				)
-		}
+			)
+		)
 	)
 )
 
@@ -90,3 +92,6 @@
 (set t (Q))
 (if (/= t 99) (print "ERROR: t is not 99\n")
  else (printf "OK: %d\n" t))
+
+(if (nqv? R false) (print "ERROR: R is not false\n")
+ else (printf "OK: %O\n" R))