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

Optimize closure calls to globals

Browse source
This commit is contained in:
Justin Ethier 2021-05-31 17:14:59 -04:00
parent 881ce5fb7f
commit 5f8b8f9f40
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1970,7 +1970,9 @@
`((%closure-ref ,f 0 `((%closure-ref ,f 0
;; Indicate if closure refers to a compiled continuation ;; Indicate if closure refers to a compiled continuation
,@(if (and (symbol? fn) ,@(if (and (symbol? fn)
(if-var fn adbv:cont?)) (or
(if-var fn adbv:cont?)
(if-var fn adbv:global?)))
(list #t) (list #t)
(list))) (list)))
,f ,f