From e8f99539a71febaca6013d72d30f6afc33059b4e Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 13 Jul 2018 20:03:50 -0400
Subject: - Fixes for compiler build [part 0].

---
 luxc/src/lux/type.clj | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'luxc/src')

diff --git a/luxc/src/lux/type.clj b/luxc/src/lux/type.clj
index d0fcf4691..6cc33688e 100644
--- a/luxc/src/lux/type.clj
+++ b/luxc/src/lux/type.clj
@@ -21,6 +21,8 @@
     _
     false))
 
+(def max-env-size 128)
+
 (def empty-env &/$Nil)
 
 (def I64 (&/$Named (&/T ["lux" "I64"])
@@ -751,7 +753,7 @@
         
         [(&/$Apply A F) _]
         (let [fp-pair (&/T [expected actual])
-              _ (when (> (&/|length fixpoints) 64)
+              _ (when (> (&/|length fixpoints) max-env-size)
                   (&/|log! (println-str 'FIXPOINTS (->> (&/|keys fixpoints)
                                                         (&/|map (fn [pair]
                                                                   (|let [[e a] pair]
-- 
cgit v1.2.3