aboutsummaryrefslogtreecommitdiff
path: root/luxc/src
diff options
context:
space:
mode:
authorEduardo Julian2019-09-15 14:59:29 -0400
committerEduardo Julian2019-09-15 14:59:29 -0400
commit301704e959814e2c85bccceb99842d88ee15e5a3 (patch)
tree8c594f402baf624eda30a0e04bf38c68ac6f55e9 /luxc/src
parente553edfbb3f7c1a3053c0bbbcaa7b8e9ccb3057b (diff)
Disabled loop optimization in the old compiler.
Diffstat (limited to 'luxc/src')
-rw-r--r--luxc/src/lux/optimizer.clj20
1 files changed, 11 insertions, 9 deletions
diff --git a/luxc/src/lux/optimizer.clj b/luxc/src/lux/optimizer.clj
index e1187594c..0c1b304e0 100644
--- a/luxc/src/lux/optimizer.clj
+++ b/luxc/src/lux/optimizer.clj
@@ -1028,16 +1028,18 @@
(&a/$apply func args)
(|let [=func (pass-0 top-level-func? func)
=args (&/|map (partial pass-0 top-level-func?) args)]
- (|case =func
- [_ ($ann [_ ($function _register-offset _arity _scope _captured _body)]
- _)]
- (if (and (= _arity (&/|length =args))
- (not (contains-self-reference? _body)))
- (inline-loop meta _register-offset _scope _captured =args _body)
- (&/T [meta ($apply =func =args)]))
+ (&/T [meta ($apply =func =args)])
+ ;; (|case =func
+ ;; [_ ($ann [_ ($function _register-offset _arity _scope _captured _body)]
+ ;; _)]
+ ;; (if (and (= _arity (&/|length =args))
+ ;; (not (contains-self-reference? _body)))
+ ;; (inline-loop meta _register-offset _scope _captured =args _body)
+ ;; (&/T [meta ($apply =func =args)]))
- _
- (&/T [meta ($apply =func =args)])))
+ ;; _
+ ;; (&/T [meta ($apply =func =args)]))
+ )
(&a/$case value branches)
(let [normal-case-optim (fn []