diff options
author | Eduardo Julian | 2015-08-04 00:22:28 -0400 |
---|---|---|
committer | Eduardo Julian | 2015-08-04 00:22:28 -0400 |
commit | 8a78830404234dc6e766ed6b653905bd7c89fac2 (patch) | |
tree | 763eda8f7ab41dd3564e9d3251708aad697cfffc /source/lux/meta/lux.lux | |
parent | ddc471806fba8fe179d52b4781f0a66d871b5e99 (diff) |
- Added a macro for exporting definitions (to not depend on the #export tag on definitions).
- The "open" and "using" macros now work recursively on records.
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 cdbade999..e1d821ff0 100644 --- a/source/lux/meta/lux.lux +++ b/source/lux/meta/lux.lux @@ -213,14 +213,14 @@ (case (get module (get@ #;modules state)) (#;Some =module) (using List/Monad - (#;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))))])) + (#;Right [state (join (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)))) |