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

Added TODO's

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

9
cyclone.scm
View file

@ -439,7 +439,14 @@
(cons 'module-globals module-globals)
;(cons)
))
TODO: use this function to set module-globals and globals, then pass it instead of options above
(define (inject-globals lis)
(cons 'module-globals module-globals)
;(set! globals (union globals '())) ;; Ensure list is sorted
)
TODO: pass this function to check flags, instead of having search logic in CPS opt module
(define (flag-set? flag)
(when (> *optimization-level* 0)
(set! input-program
(optimize-cps input-program *cps-opt-options*))