diff options
Diffstat (limited to '')
| -rw-r--r-- | src/lux/compiler.clj | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/lux/compiler.clj b/src/lux/compiler.clj index 471fcda77..7bd31779a 100644 --- a/src/lux/compiler.clj +++ b/src/lux/compiler.clj @@ -366,16 +366,16 @@ )] (defn ^:private compile-module [name] (fn [state] - (if (->> state (&/get$ "lux;modules") (&/|contains? name)) + (if (->> state (&/get$ &/$MODULES) (&/|contains? name)) (fail "[Compiler Error] Can't redefine a module!") (let [=class (doto (new ClassWriter ClassWriter/COMPUTE_MAXS) (.visit Opcodes/V1_5 (+ Opcodes/ACC_PUBLIC Opcodes/ACC_SUPER) (&host/->class name) nil "java/lang/Object" nil))] (matchv ::M/objects [(&/run-state (&/exhaust% compiler-step) (->> state - (&/set$ "lux;source" (&/V "lux;Some" (&reader/from (str "source/" name ".lux")))) + (&/set$ &/$SOURCE (&/V "lux;Some" (&reader/from (str "source/" name ".lux")))) (&/set$ &/$ENVS (&/|list (&/env name))) (&/update$ &/$HOST #(&/set$ &/$WRITER (&/V "lux;Some" =class) %)) - (&/update$ "lux;modules" #(&/|put name &a-def/init-module %))))] + (&/update$ &/$MODULES #(&/|put name &a-def/init-module %))))] [["lux;Right" [?state _]]] (do (.visitEnd =class) ;; (prn 'compile-module 'DONE name) |