Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-03 11:16:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

When an alternate syntax-rules ellipsis is specified, we must bind this

Browse source 
locally around the macro transformer.  Fixes issue #313.
This commit is contained in:
Alex Shinn 2016-03-02 23:34:39 +09:00
parent 38385c52eb
commit 97297221fa
2 changed files with 242 additions and 222 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lib/init-7.scm
View file

@ -669,9 +669,7 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; syntax-rules
(define-syntax syntax-rules
(er-macro-transformer
(lambda (expr rename compare)
(define (syntax-rules-transformer expr rename compare)
(let ((ellipsis-specified? (identifier? (cadr expr)))
(count 0)
(_er-macro-transformer (rename 'er-macro-transformer))
@ -693,7 +691,7 @@
(_vector->list (rename 'vector->list))
(_list->vector (rename 'list->vector))
(_cons3 (rename 'cons-source)))
(define ellipsis (if ellipsis-specified? (cadr expr) (rename '...)))
(define ellipsis (if ellipsis-specified? (cadr expr) '...))
(define lits (if ellipsis-specified? (car (cddr expr)) (cadr expr)))
(define forms (if ellipsis-specified? (cdr (cddr expr)) (cddr expr)))
(define (next-symbol s)
@ -893,7 +891,18 @@
(list _cons
(list _error "no expansion for"
(list (rename 'strip-syntactic-closures) _expr))
#f)))))))))))
#f)))))))))
(define-syntax syntax-rules/aux
(er-macro-transformer syntax-rules-transformer))
(define-syntax syntax-rules
(er-macro-transformer
(lambda (expr rename compare)
(if (identifier? (cadr expr))
(list (rename 'let) (list (list (cadr expr) #t))
(cons (rename 'syntax-rules/aux) (cdr expr)))
(syntax-rules-transformer expr rename compare)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; additional syntax

11
tests/syntax-tests.scm
View file

@ -57,4 +57,15 @@
((N y E2) (quote (y E2)))))
(test '(1 2 3) (N 1 2 3)))
(define-syntax ell
(syntax-rules ()
((ell body)
(define-syntax emm
(syntax-rules ...1 ()
((emm) body))))))
(ell
(define-syntax enn
(syntax-rules ...1 () ((enn args ...1) (quote (args ...1))))))
(test-end)