er macro no longer requires identifier? defined

This commit is contained in:
Yuichi Nishiwaki 2014-01-11 12:56:51 +09:00
parent 64855bfcec
commit 82dd55f77f
1 changed files with 2 additions and 2 deletions

View File

@ -70,7 +70,7 @@
(define-syntax let
(er-macro-transformer
(lambda (expr r compare)
(if (identifier? (cadr expr))
(if (symbol? (cadr expr))
(begin
(define name (cadr expr))
(define bindings (caddr expr))
@ -121,7 +121,7 @@
(lambda (expr r compare?)
(let ((x (cadr expr)))
(cond
((symbol? x) (list (r 'quote) x)) ; should test with identifier?
((symbol? x) (list (r 'quote) x))
((pair? x) (cond
((compare? (r 'unquote) (car x))
(cadr x))