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

fixing break in cut introduced by syntax-rules tweak

Browse source
This commit is contained in:
Alex Shinn 2011-04-27 10:59:14 +09:00
parent 052de70a20
commit 557386cedf
1 changed files with 13 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lib/init.scm
View file

@ -632,8 +632,7 @@
(dim 0) (dim 0)
(vars '()) (vars '())
(k (lambda (vars) (k (lambda (vars)
(or (expand-template tmpl vars) (list _cons (expand-template tmpl vars) #f))))
(list _begin #f)))))
(let ((v (next-symbol "v."))) (let ((v (next-symbol "v.")))
(list (list
_let (list (list v x)) _let (list (list v x))
@ -797,19 +796,22 @@
(else (list _cons (lp (car t) dim) (lp (cdr t) dim))))) (else (list _cons (lp (car t) dim) (lp (cdr t) dim)))))
((vector? t) (list _list->vector (lp (vector->list t) dim))) ((vector? t) (list _list->vector (lp (vector->list t) dim)))
((null? t) (list _quote '())) ((null? t) (list _quote '()))
((not t) (list _quote (list _quote #f)))
(else t)))) (else t))))
(list (list
_er-macro-transformer _er-macro-transformer
(list _lambda (list _expr _rename _compare) (list _lambda (list _expr _rename _compare)
(cons (list
_or _car
(append (cons
(map _or
(lambda (clause) (expand-pattern (car clause) (cadr clause))) (append
forms) (map
(list (list _error "no expansion for" (lambda (clause) (expand-pattern (car clause) (cadr clause)))
(list (rename 'strip-syntactic-closures) _expr))))))))))) forms)
(list _cons
(list _error "no expansion for"
(list (rename 'strip-syntactic-closures) _expr))
#f))))))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; additional syntax ;; additional syntax