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

remove old code that has been commented out for a long

This commit is contained in:
Yuichi Nishiwaki 2014-08-03 14:04:26 +09:00
parent 3f2b1d85bf
commit 82f82da213
1 changed files with 0 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
piclib/prelude.scm
View File

@ -145,19 +145,6 @@
(let ((x (cadr form))) (let ((x (cadr form)))
(qq 1 x))))) (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* (define-syntax let*
(er-macro-transformer (er-macro-transformer
(lambda (form r compare) (lambda (form r compare)