Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

WIP

Browse source
This commit is contained in:
Justin Ethier 2017-12-15 14:17:54 -05:00
parent a92cb172f8
commit 4ea55e062a
1 changed files with 15 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
scheme/eval.sld
View file

@ -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))