Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-16 17:27:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Removed dead code

Browse source
This commit is contained in:
Justin Ethier 2017-12-15 18:31:44 -05:00
parent c404a6b588
commit ee7cf5a435
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/eval.sld
View file

@ -972,12 +972,10 @@
;(trace:error `(let-syntax ,new-local-macro-env))
(_expand body env rename-env new-local-macro-env) ;; TODO: new-local-macro-env
))
;; TODO: does not work yet:
((letrec-syntax? exp)
(let* ((body (cons 'begin (cddr exp)))
(body-env (env:extend-environment '() '() env))
(bindings (cadr exp))
;(new-local-macro-env (append bindings-as-macros local-env))
)
(for-each
(lambda (b)
@ -992,7 +990,7 @@
binding-body))))
(env:define-variable! name macro-val) body-env))
bindings)
(_expand body body-env rename-env local-env) ;;new-local-macro-env) ;; TODO: new-local-macro-env
(_expand body body-env rename-env local-env)
))
((app? exp)
(cond