diff options
Diffstat (limited to '')
-rw-r--r-- | src/lux/compiler.clj | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/lux/compiler.clj b/src/lux/compiler.clj index 8fe64aa59..b4b76e0a6 100644 --- a/src/lux/compiler.clj +++ b/src/lux/compiler.clj @@ -493,7 +493,10 @@ .visitEnd) (-> (.visitField (+ Opcodes/ACC_PUBLIC Opcodes/ACC_FINAL Opcodes/ACC_STATIC) &/compiler-field "Ljava/lang/String;" nil &&/version) .visitEnd) - (.visitSource file-name nil))]] + (.visitSource file-name nil))] + _ (if (= "lux" name) + &&host/compile-Function-class + (return nil))] (fn [state] (|case ((&/with-writer =class (&/exhaust% compiler-step)) @@ -545,9 +548,7 @@ ;; [Resources] (defn compile-program [program-module] (init!) - (let [m-action (|do [_ &&host/compile-Function-class - _ (&/map% compile-module (&/|list "lux" program-module))] - (return nil))] + (let [m-action (&/map% compile-module (&/|list "lux" program-module))] (|case (m-action (&/init-state nil)) (&/$Right ?state _) (do (println "Compilation complete!") |