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)) ;(trace:error `(let-syntax ,new-local-macro-env))
(_expand body env rename-env new-local-macro-env) ;; TODO: 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) ((letrec-syntax? exp)
(let* ((body (cons 'begin (cddr exp))) (let* ((body (cons 'begin (cddr exp)))
(body-env (env:extend-environment '() '() env)) (body-env (env:extend-environment '() '() env))
(bindings (cadr exp)) (bindings (cadr exp))
;(new-local-macro-env (append bindings-as-macros local-env))
) )
(for-each (for-each
(lambda (b) (lambda (b)
@ -992,7 +990,7 @@
binding-body)))) binding-body))))
(env:define-variable! name macro-val) body-env)) (env:define-variable! name macro-val) body-env))
bindings) 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) ((app? exp)
(cond (cond