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

Browse source
This commit is contained in:
Justin Ethier 2018-10-17 15:54:14 -04:00
parent f110c1d219
commit 2d5e75764f
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1954,15 +1954,19 @@
(cond (cond
((ref? sym) ((ref? sym)
(let ((var (adb:get/default sym #f))) (let ((var (adb:get/default sym #f)))
(trace:info `(rec-call? ,sym ,lid (trace:info
`(rec-call? ,sym ,lid
;; TODO: crap, these are not set yet!!!
may need to consider keeping out original version of find-recursive-calls and
adding a new version that does a deeper analysis
,(if var (not (adbv:reassigned? var)) #f) ,(if var (not (adbv:reassigned? var)) #f)
,(if var (adbv:assigned-value var) #f) ,(if var (adbv:assigned-value var) #f)
;,((ast:lambda? var-lam)) ;,((ast:lambda? var-lam))
,(adb:get/default lid #f) ,(adb:get/default lid #f)
) )
) )
(and-let* (((ref? sym)) (and-let* (
((var)) ((not (equal? var #f)))
((not (adbv:reassigned? var))) ((not (adbv:reassigned? var)))
(var-lam (adbv:assigned-value var)) (var-lam (adbv:assigned-value var))
((ast:lambda? var-lam)) ((ast:lambda? var-lam))