diff options
Diffstat (limited to '')
| -rw-r--r-- | src/lux/optimizer.clj | 7 |
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))) |