Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-09 22:17:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Wrap identifier-syntax output in make-transformer

Browse source
This commit is contained in:
Daphne Preston-Kendal 2022-01-03 09:50:07 +01:00
parent eb8582f5b1
commit d769a7970c
1 changed files with 13 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
lib/chibi/syntax-case.scm
View file

@ -381,22 +381,28 @@
(define-current-ellipsis ellipsis) (define-current-ellipsis ellipsis)
. body)))))) . body))))))
;; identifier-syntax definition from R6RS Libraries section 12.9 ;; identifier-syntax adapted from R6RS Libraries section 12.9
;; (changes: use only round brackets; can't use fenders in Chibi
;; syntax-rules; wrap the transformer procedures in make-transformer
;; so they can be used in Chibi anywhere a syntax transformer is
;; used, not just in {define,let,letrec}-syntax)
(define-syntax identifier-syntax (define-syntax identifier-syntax
(syntax-rules (set!) (syntax-rules (set!)
((_ e) ((_ e)
(lambda (x) (make-transformer
(syntax-case x () (lambda (x)
(id (identifier? #'id) #'e) (syntax-case x ()
((_ x (... ...)) #'(e x (... ...)))))) (id (identifier? #'id) #'e)
((_ x (... ...)) #'(e x (... ...)))))))
((_ (id exp1) ((set! var val) exp2)) ((_ (id exp1) ((set! var val) exp2))
#;(and (identifier? #'id) (identifier? #'var)) #;(and (identifier? #'id) (identifier? #'var))
(make-variable-transformer (make-transformer
(make-variable-transformer
(lambda (x) (lambda (x)
(syntax-case x (set!) (syntax-case x (set!)
((set! var val) #'exp2) ((set! var val) #'exp2)
((id x (... ...)) #'(exp1 x (... ...))) ((id x (... ...)) #'(exp1 x (... ...)))
(id (identifier? #'id) #'exp1))))))) (id (identifier? #'id) #'exp1))))))))
;; Local variables: ;; Local variables:
;; eval: (put '%define-syntax 'scheme-indent-function 1) ;; eval: (put '%define-syntax 'scheme-indent-function 1)