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

Emit lambda AST's

Browse source
This commit is contained in:
Justin Ethier 2019-02-13 15:00:38 -05:00
parent f6be983113
commit a20f020f66
1 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
scheme/cyclone/cps-opt-memoize-pure-fncs.scm
View file

@ -187,17 +187,17 @@
;; Memoize all of the functions at top-level ;; Memoize all of the functions at top-level
(foldl (foldl
(lambda (var/new-var acc) (lambda (var/new-var acc)
(let ((rsym (gensym 'r)) (let* ((rsym (gensym 'r))
(var (car var/new-var)) (var (car var/new-var))
(new-var (cdr var/new-var))) (new-var (cdr var/new-var))
(body
`((Cyc-seq
(set-global! ,var ,rsym)
,acc)))
)
`(memoize `(memoize
(,(gensym 'lambda) ,(ast:make-lambda (list rsym) body)
(,rsym) ,new-var)))
(Cyc-seq
(set-global! ,var ,rsym)
,acc
))
,new-var)))
exp exp
memo-tbl) memo-tbl)
))) )))