diff options
author | Eduardo Julian | 2015-07-29 20:20:26 -0400 |
---|---|---|
committer | Eduardo Julian | 2015-07-29 20:20:26 -0400 |
commit | c79621772c862e9b94e1fc43e11996cbac54fed1 (patch) | |
tree | 99a01f460c09f1655e83685fbe35c91242618cc5 /source/lux/meta/lux.lux | |
parent | 8fb7683f9029127be9cf36336c367813c88f681b (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.lux | 16 |
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)))) |