From 11b65d5073d1657974f14ce07aebec43136bdd0b Mon Sep 17 00:00:00 2001
From: alex-eg <alexey.e.egorov@gmail.com>
Date: Wed, 1 Oct 2025 16:14:02 +0300
Subject: [PATCH] fix tests

---
 tests/semen.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/tests/semen.scm b/tests/semen.scm
index b29f6a5..cb85a4d 100644
--- a/tests/semen.scm
+++ b/tests/semen.scm
@@ -1,3 +1,5 @@
+(import srfi-69)
+
 (define print-str-fn
   '(fn void print-str ((string s))
        (printf "%s" s)))
@@ -33,8 +35,11 @@
 
 ;;; Macro expansion
 
-(test 'a (semen-walk-form 'a identity))
-(test '(a b c) (semen-walk-form '(a b c) identity))
+(define (form-identity form env)
+  form)
+
+(test 'a (semen-walk-form 'a form-identity (make-hash-table)))
+(test '(a b c) (semen-walk-form '(a b c) form-identity (make-hash-table)))
 
 (test 'a (semen-macro-expand 'a))
 (test '(a b c) (semen-macro-expand '(a b c)))
-- 
2.52.0