From ee7cf5a435b340cd6747bdb1b994f1cf22a83209 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Fri, 15 Dec 2017 18:31:44 -0500 Subject: [PATCH] Removed dead code --- scheme/eval.sld | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/scheme/eval.sld b/scheme/eval.sld index 21b48bee..896a39b5 100644 --- a/scheme/eval.sld +++ b/scheme/eval.sld @@ -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