alex-eg/sex
1
0
Fork 1
Code Issues 3 Pull Requests 1 Actions Packages Projects 1 Releases Wiki Activity

fix tests

Browse Source
This commit was merged in pull request #13.
This commit is contained in:
alex-eg
2025-10-01 16:14:02 +03:00
committed by Pavel Kulyov
parent 77845d24c7
commit fd61e753dc
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
tests/semen.scm
View File

@@ -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)))