diff options
| author | Eduardo Julian | 2018-08-02 23:23:20 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2018-08-02 23:23:20 -0400 |
| commit | a8979a7b1ed69740eb6c7c00c934e2fadd129322 (patch) | |
| tree | a32b39006ed7143c322b2171989850fd1f33499e /luxc | |
| parent | 015134cd44e066e49b3bac56b442a6150c782600 (diff) | |
Moved statement-state initialization o "lux/compiler/default/init".
Diffstat (limited to 'luxc')
| -rw-r--r-- | luxc/src/lux/type.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/luxc/src/lux/type.clj b/luxc/src/lux/type.clj index 66a072a10..6fe47dbf9 100644 --- a/luxc/src/lux/type.clj +++ b/luxc/src/lux/type.clj @@ -21,7 +21,7 @@ _ false)) -(def max-env-size 128) +(def max-stack-size 256) (def empty-env &/$Nil) @@ -753,7 +753,7 @@ [(&/$Apply A F) _] (let [fp-pair (&/T [expected actual]) - _ (when (> (&/|length fixpoints) max-env-size) + _ (when (> (&/|length fixpoints) max-stack-size) (&/|log! (println-str 'FIXPOINTS (->> (&/|keys fixpoints) (&/|map (fn [pair] (|let [[e a] pair] |