Don't map expansion across non-lists.

This commit is contained in:
Alex Shinn 2012-12-08 20:30:44 +09:00
parent 966ece57c2
commit 9e1034be02

View file

@ -235,7 +235,7 @@
(define (expand sxml env) (define (expand sxml env)
(cond (cond
((pair? sxml) ((list? sxml)
(cond (cond
((symbol? (car sxml)) ((symbol? (car sxml))
(let ((op (env-ref env (car sxml)))) (let ((op (env-ref env (car sxml))))