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

WIP

Browse source
This commit is contained in:
Justin Ethier 2018-09-14 18:26:03 -04:00
parent 6dfe91fdc6
commit a9c5d5d268
2 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scheme/cyclone/cgen.sld
View file

@ -1125,8 +1125,10 @@
(if (equal? cps? '(#f))
(set! inline-lambdas (cons id inline-lambdas)))
(when ast:lam
;; TODO: store the allocated ID within the adbf
'todo
TODO: store the allocated ID within the adbf
(with-fnc! ast:lam (lambda ()
(adbf:set-cge
)
)
id))

4
scheme/cyclone/cps-optimizations.sld
View file

@ -81,7 +81,7 @@
adbf:unused-params adbf:set-unused-params!
adbf:side-effects adbf:set-side-effects!
adbf:well-known adbf:set-well-known!
adbf:cgen-id adbf:cgen-id!
adbf:cgen-id adbf:set-cgen-id!
with-fnc
with-fnc!
)
@ -227,7 +227,7 @@
;; sites where it is known.
(well-known adbf:well-known adbf:set-well-known!)
;; Store internal ID generated for the lambda by the cgen module
(cgen-id adbf:cgen-id adbf:cgen-id!)
(cgen-id adbf:cgen-id adbf:set-cgen-id!)
)
(define (adb:make-fnc)
(%adb:make-fnc