Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

restoring renaming of ...

Browse source
This commit is contained in:
Alex Shinn 2016-03-05 00:28:09 +09:00
parent fb24b831b8
commit 45c03c5dcb
2 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/init-7.scm
View file

@ -691,7 +691,7 @@
(_vector->list (rename 'vector->list)) (_vector->list (rename 'vector->list))
(_list->vector (rename 'list->vector)) (_list->vector (rename 'list->vector))
(_cons3 (rename 'cons-source))) (_cons3 (rename 'cons-source)))
(define ellipsis (if ellipsis-specified? (cadr expr) '...)) (define ellipsis (if ellipsis-specified? (cadr expr) (rename '...)))
(define lits (if ellipsis-specified? (car (cddr expr)) (cadr expr))) (define lits (if ellipsis-specified? (car (cddr expr)) (cadr expr)))
(define forms (if ellipsis-specified? (cdr (cddr expr)) (cddr expr))) (define forms (if ellipsis-specified? (cdr (cddr expr)) (cddr expr)))
(define (next-symbol s) (define (next-symbol s)

6
tests/syntax-tests.scm
View file

@ -68,4 +68,10 @@
(define-syntax enn (define-syntax enn
(syntax-rules ...1 () ((enn args ...1) (quote (args ...1)))))) (syntax-rules ...1 () ((enn args ...1) (quote (args ...1))))))
(let ((... 'local))
(define-syntax asd
(syntax-rules ()
((asd x ...) (quote (... x)))))
(test '(2 1) (asd 1 2)))
(test-end) (test-end)