mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 13:49:17 +02:00
Don't map expansion across non-lists.
This commit is contained in:
parent
966ece57c2
commit
9e1034be02
1 changed files with 1 additions and 1 deletions
|
@ -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))))
|
||||||
|
|
Loading…
Add table
Reference in a new issue