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

Added TODO

Browse source
This commit is contained in:
Justin Ethier 2018-06-01 16:49:58 -04:00
parent d379d1bfb3
commit 2cdc9336c0
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1763,6 +1763,9 @@
(cond (cond
((check-args (cddr exp)) ;; Skip func and continuation ((check-args (cddr exp)) ;; Skip func and continuation
(trace:info `("direct recursive call" ,exp)) (trace:info `("direct recursive call" ,exp))
;; TODO: No, not good enough! consider _list-index from scheme base. At the
;; least we need to account for newly-allocated closures being passed as the cont.
;; But it seems neither that function or foldr is a direct call
(with-var! def-sym (lambda (var) (with-var! def-sym (lambda (var)
(adbv:set-direct-rec-call! var #t)))) (adbv:set-direct-rec-call! var #t))))
(else (else