aboutsummaryrefslogtreecommitdiff
path: root/source/lux/meta/lux.lux
diff options
context:
space:
mode:
authorEduardo Julian2015-07-29 20:20:26 -0400
committerEduardo Julian2015-07-29 20:20:26 -0400
commitc79621772c862e9b94e1fc43e11996cbac54fed1 (patch)
tree99a01f460c09f1655e83685fbe35c91242618cc5 /source/lux/meta/lux.lux
parent8fb7683f9029127be9cf36336c367813c88f681b (diff)
- lux;using no longer prefixes variables.
- Fixed several bugs with host (JVM) interop. - Now packaging everything in a .jar file ("program.jar").
Diffstat (limited to 'source/lux/meta/lux.lux')
-rw-r--r--source/lux/meta/lux.lux16
1 files changed, 8 insertions, 8 deletions
diff --git a/source/lux/meta/lux.lux b/source/lux/meta/lux.lux
index 99ca200cf..19b7dd9df 100644
--- a/source/lux/meta/lux.lux
+++ b/source/lux/meta/lux.lux
@@ -187,14 +187,14 @@
(case (get module (get@ #;modules state))
(#;Some =module)
(using List/Monad
- (#;Right [state (M;join (:: M;_functor (F;map (: (-> (, Text (, Bool (DefData' Macro)))
- (List Text))
- (lambda [gdef]
- (let [[name [export? _]] gdef]
- (if export?
- (list name)
- (list)))))
- (get@ #;defs =module))))]))
+ (#;Right [state (join (:: _functor (F;map (: (-> (, Text (, Bool (DefData' Macro)))
+ (List Text))
+ (lambda [gdef]
+ (let [[name [export? _]] gdef]
+ (if export?
+ (list name)
+ (list)))))
+ (get@ #;defs =module))))]))
#;None
(#;Left ($ text:++ "Unknown module: " module))))