conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
piclib/built-in.scm
View File

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