diff options
author | Eduardo Julian | 2019-09-15 14:59:29 -0400 |
---|---|---|
committer | Eduardo Julian | 2019-09-15 14:59:29 -0400 |
commit | 301704e959814e2c85bccceb99842d88ee15e5a3 (patch) | |
tree | 8c594f402baf624eda30a0e04bf38c68ac6f55e9 /luxc/src/lux | |
parent | e553edfbb3f7c1a3053c0bbbcaa7b8e9ccb3057b (diff) |
Disabled loop optimization in the old compiler.
Diffstat (limited to 'luxc/src/lux')
-rw-r--r-- | luxc/src/lux/optimizer.clj | 20 |
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 [] |