From e182c95efdc51a7447e4fc8a77a744c001a24deb Mon Sep 17 00:00:00 2001
From: Jakub Jankiewicz <jcubic@onet.pl>
Date: Sun, 3 Mar 2024 14:32:11 +0100
Subject: [PATCH] fix unit tests #324

---
 tests/quotation.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/quotation.scm b/tests/quotation.scm
index 3d14d1a29..d51e94d87 100644
--- 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)