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

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
(foldl
(lambda (var/new-var acc)
(let ((rsym (gensym 'r))
(var (car var/new-var))
(new-var (cdr var/new-var)))
(let* ((rsym (gensym 'r))
(var (car var/new-var))
(new-var (cdr var/new-var))
(body
`((Cyc-seq
(set-global! ,var ,rsym)
,acc)))
)
`(memoize
(,(gensym 'lambda)
(,rsym)
(Cyc-seq
(set-global! ,var ,rsym)
,acc
))
,new-var)))
,(ast:make-lambda (list rsym) body)
,new-var)))
exp
memo-tbl)
)))