fixing syntax-rules expansions for literal #f templates

This commit is contained in:
Alex Shinn 2011-04-19 22:54:23 +09:00
parent 0494305c9b
commit c80d1daf8c

View file

@ -795,6 +795,7 @@
(else (list _cons (lp (car t) dim) (lp (cdr t) dim)))))
((vector? t) (list _list->vector (lp (vector->list t) dim)))
((null? t) (list _quote '()))
((not t) (list _quote (list _quote #f)))
(else t))))
(list
_er-macro-transformer