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

Export new funcs

Browse source
This commit is contained in:
Justin Ethier 2019-09-16 22:52:56 -04:00
parent e45837a19f
commit 2816a4771e
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

@ -116,6 +116,8 @@
is-mutable? is-mutable?
analyze-mutable-variables analyze-mutable-variables
wrap-mutables wrap-mutables
mark-mutated-loop-var
mutated-loop-var?
) )
(include "cps-opt-local-var-redux.scm") (include "cps-opt-local-var-redux.scm")
(include "cps-opt-analyze-call-graph.scm") (include "cps-opt-analyze-call-graph.scm")
@ -2534,6 +2536,7 @@
;; var may be used for a recursive loop. ;; var may be used for a recursive loop.
(when (and (= 2 (length exp)) (when (and (= 2 (length exp))
(ast:lambda? (car exp)) (ast:lambda? (car exp))
#f ;; TEmporarily disabled
(not (cadr exp))) (not (cadr exp)))
;; Candidate, see if the var is set to a lambda ;; Candidate, see if the var is set to a lambda
(with-var (car (ast:lambda-formals->list (car exp))) (lambda (var) (with-var (car (ast:lambda-formals->list (car exp))) (lambda (var)