fix unit tests #324

jcubic · Mar 3, 2024 · e182c95 · e182c95
1 parent 9bc72c9
commit e182c95
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/quotation.scm b/tests/quotation.scm
@@ -156,7 +156,7 @@
 
         (define (foo x) x)
 
-        (t.is (eval (cadr (bar))) '(list 1 2 3))))
+        (t.is (eval (cadr (bar)) (current-environment)) '(list 1 2 3))))
 
 (let ((fun (lambda (a b)
           (if (number? a)