remove old code that has been commented out for a long
This commit is contained in:
parent
3f2b1d85bf
commit
82f82da213
|
@ -145,19 +145,6 @@
|
|||
(let ((x (cadr form)))
|
||||
(qq 1 x)))))
|
||||
|
||||
#;
|
||||
(define-syntax let*
|
||||
(ir-macro-transformer
|
||||
(lambda (form inject compare)
|
||||
(let ((bindings (cadr form))
|
||||
(body (cddr form)))
|
||||
(if (null? bindings)
|
||||
`(let () ,@body)
|
||||
`(let ((,(caar bindings)
|
||||
,@(cdar bindings)))
|
||||
(let* (,@(cdr bindings))
|
||||
,@body)))))))
|
||||
|
||||
(define-syntax let*
|
||||
(er-macro-transformer
|
||||
(lambda (form r compare)
|
||||
|
|
Loading…
Reference in New Issue