aboutsummaryrefslogtreecommitdiff
path: root/src/lux/optimizer.clj
diff options
context:
space:
mode:
Diffstat (limited to 'src/lux/optimizer.clj')
-rw-r--r--src/lux/optimizer.clj7
1 files changed, 5 insertions, 2 deletions
diff --git a/src/lux/optimizer.clj b/src/lux/optimizer.clj
index 48db1e2cf..6f4fd27bd 100644
--- a/src/lux/optimizer.clj
+++ b/src/lux/optimizer.clj
@@ -154,7 +154,8 @@
("jvm-lshr" 1)
("jvm-lushr" 1))
-(defn ^:private optimize-token [analysis]
+;; [Exports]
+(defn optimize-token [analysis]
"(-> Analysis Optimized)"
(|case analysis
(&-base/$bool value)
@@ -543,9 +544,11 @@
(&-base/$jvm-lushr value)
(return ($jvm-lushr value))
+
+ _
+ (assert false (prn-str 'optimize-token (&/adt->text analysis)))
))
-;; [Exports]
(defn optimize [eval! compile-module compile-token]
(|do [analyses (&analyser/analyse eval! compile-module compile-token)]
(&/map% optimize-token analyses)))