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

Simplify CPS conversion of top-level code

Browse source
This commit is contained in:
Justin Ethier 2015-04-07 14:01:16 -04:00
parent 1e317d273b
commit 0b1490d102
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
trans.scm
View file

@ -1612,9 +1612,7 @@
,@(let ((k (gensym 'k)) ,@(let ((k (gensym 'k))
(r (gensym 'r))) (r (gensym 'r)))
(cps (car (define->exp ast)) 'unused)))) (cps (car (define->exp ast)) 'unused))))
(cps ast (cps ast '%halt))))
(let ((r (gensym 'r)))
`(lambda (,r) (%halt ,r)))))))
ast-cps)) ast-cps))
;; Closure-conversion. ;; Closure-conversion.