the state-var-test was wrong

scsh/test/awk-test.scm

@@ -388,7 +388,7 @@
 
 (add-test! 'var-decl-test 'awk
 	   (lambda ()
-	     (let ((read '())
+	     (let ((read 0)
 		   (str (string-append "ein paar testzeilen, um\n" 
 				       "expr-test zu prüfen:\n"
 				       "EINE ZEILE GRO/3...\n" 
@@ -396,17 +396,18 @@
 				       "eine zeile mit zeichen...\n"
 				       "*+#'~,;:.-_<>|!§$%&/()=?\"\\[]{}\n")))
 	       ((lambda (in-port)
-		   (awk (read-line in-port) (line) counter ((i 0)
-							      (x 2)
-							      (y 3))
-			(1 (set! i (+ x y)))
-			(2 (set! x (+ i y)))
-			(3 (set! i (* i 2)))
-			(4 (set! i (- i y)))
-			(5 (set! i (* i x)))
-			(6 (set! read i))))
+		  (awk (read-line in-port) (line) counter ((i 0)
+							   (x 2)
+							   (y 3))
+		       (1 (values (+ x y) x y))
+		       (2 (values i (+ i y) y))
+		       (3 (values (* i 2) x y))
+		       (4 (values (- i y) x y))
+		       (5 (values (* i x) x y))
+		       (6 (set! read i)
+			  (values i x y))))
 		(make-string-input-port str))
-	       (= read 56))))
+	     (= read 56))))
 
 
 ;; --- multiple-return-values-of-next-record-test ---