add chicken-import support to sex

also fix unquoting to single atom processing wrongly in walk-sex-tree
This commit is contained in:
2025-06-14 14:07:00 +03:00
parent f309f83dbb
commit bd71dcc8a7
3 changed files with 23 additions and 13 deletions

View File

@@ -3,7 +3,12 @@
(include stdbool.h)
(include stdio.h)
(load "list.seh")
(chicken-import srfi-1 brev-separate) ; list routines, e.g. fold
(chicken-load "list.seh")
(define (imports-test a b c)
(fold + 0 (list 1 2 3 a b c)))
(struct foo
((float a)
@@ -16,9 +21,8 @@
,(length-list-T '(int) #f)
,(is-empty-list-T '(int) #f)
(extern fn void puk ((int a) (float b)))
(fn bool bar () false)
(fn int bar () ,(imports-test 10 20 30))
(pub fn void baz () true)
(extern var int i)