aboutsummaryrefslogtreecommitdiff
path: root/source/lux/meta/lux.lux
diff options
context:
space:
mode:
authorEduardo Julian2015-08-04 00:22:28 -0400
committerEduardo Julian2015-08-04 00:22:28 -0400
commit8a78830404234dc6e766ed6b653905bd7c89fac2 (patch)
tree763eda8f7ab41dd3564e9d3251708aad697cfffc /source/lux/meta/lux.lux
parentddc471806fba8fe179d52b4781f0a66d871b5e99 (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.lux16
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))))