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

Emit call/cc for scheme base

Browse source
This commit is contained in:
Justin Ethier 2015-05-14 22:19:26 -04:00
parent b03d1461f8
commit 7b3dc0b0f3
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
cyclone.scm
View file

@ -125,7 +125,7 @@
(cps-convert expr))
input-program)))
(cond
(program?
((and library? (equal? lib-name '(scheme base)))
(set! globals (cons 'call/cc globals))
(set! module-globals (cons 'call/cc module-globals))
(set! input-program
@ -137,7 +137,7 @@
(lambda (k f) (f k (lambda (_ result) (k result)))))
cps)))
(else
;; Compiling a library, no need for call/cc yet
;; No need for call/cc yet
(set! input-program cps))))
(trace:info "---------------- after CPS:")
(trace:info input-program) ;pretty-print