From 4ea55e062a159b996fd5abfa68faf0d656f34825 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Fri, 15 Dec 2017 14:17:54 -0500 Subject: [PATCH] WIP --- scheme/eval.sld | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) diff --git a/scheme/eval.sld b/scheme/eval.sld index 912bca51..ef17f2e5 100644 --- a/scheme/eval.sld +++ b/scheme/eval.sld @@ -471,21 +471,21 @@ (define (analyze-letrec-syntax exp a-env) (let* ((rename-env (env:extend-environment '() '() '())) -;; (vars (foldl (lambda (lis acc) (append acc (car lis))) '() a-env)) -;; (vals (foldl (lambda (lis acc) (append acc (cdr lis))) '() a-env)) -;; (zipped (apply map list vars (list vals))) -;; (defined-macros -;; (filter -;; (lambda (v) -;; (Cyc-macro? (Cyc-get-cvar (cdr v)))) -;; zipped)) -;; (macro-env -;; (env:extend-environment -;; (map car defined-macros) -;; (map (lambda (v) -;; (list 'macro (cdr v))) -;; defined-macros) -;; '())) ;; base-env +; (vars (foldl (lambda (lis acc) (append acc (car lis))) '() a-env)) +; (vals (foldl (lambda (lis acc) (append acc (cdr lis))) '() a-env)) +; (zipped (apply map list vars (list vals))) +; (defined-macros +; (filter +; (lambda (v) +; (Cyc-macro? (Cyc-get-cvar (cadr v)))) +; zipped)) +; (macro-env +; (env:extend-environment +; (map car defined-macros) +; (map (lambda (v) +; (list 'macro (cadr v))) +; defined-macros) +; '())) ;; base-env ;(expanded (expand exp macro-env rename-env)) (expanded (expand exp a-env rename-env))