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.clj12
1 files changed, 2 insertions, 10 deletions
diff --git a/src/lux/optimizer.clj b/src/lux/optimizer.clj
index 6fc551cae..ab11fc8a5 100644
--- a/src/lux/optimizer.clj
+++ b/src/lux/optimizer.clj
@@ -21,14 +21,12 @@
("case" 1)
("lambda" 1)
("ann" 1)
- ("def" 1)
("var" 1)
("captured" 1)
("host" 2)
("jvm-class" 1)
("jvm-interface" 1)
- ("jvm-program" 1)
)
;; [Exports]
@@ -68,9 +66,6 @@
(&-base/$ann value)
(return ($ann value))
- (&-base/$def value)
- (return ($def value))
-
(&-base/$var value)
(return ($var value))
@@ -86,13 +81,10 @@
(&-base/$jvm-interface value)
(return ($jvm-interface value))
- (&-base/$jvm-program value)
- (return ($jvm-program value))
-
_
(assert false (prn-str 'optimize-token (&/adt->text analysis)))
))
-(defn optimize [eval! compile-module compile-token]
- (|do [analyses (&analyser/analyse eval! compile-module compile-token)]
+(defn optimize [eval! compile-module compilers]
+ (|do [analyses (&analyser/analyse eval! compile-module compilers)]
(&/map% optimize-token analyses)))