aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/macro/syntax/common/writer.lux
diff options
context:
space:
mode:
authorEduardo Julian2017-12-02 12:49:25 -0400
committerEduardo Julian2017-12-02 12:49:25 -0400
commit1651d847ba70ee36171f3809a25bece325fd5715 (patch)
tree9cf19984d86d9adb336859b396ba3199c8d28890 /stdlib/source/lux/macro/syntax/common/writer.lux
parent46955edbe6cea9f367562b9fb17cef526109d9e0 (diff)
- Added context-sensitive macro-expansion by means of "lux in-module", and removed all the (now unnecessary) #hidden tags.
- Fixed a bug when loading the imports from the cache. - Added special notation for context-sensitive macro-expansion.
Diffstat (limited to 'stdlib/source/lux/macro/syntax/common/writer.lux')
-rw-r--r--stdlib/source/lux/macro/syntax/common/writer.lux18
1 files changed, 6 insertions, 12 deletions
diff --git a/stdlib/source/lux/macro/syntax/common/writer.lux b/stdlib/source/lux/macro/syntax/common/writer.lux
index d5ad8cb61..5b5ab9ab5 100644
--- a/stdlib/source/lux/macro/syntax/common/writer.lux
+++ b/stdlib/source/lux/macro/syntax/common/writer.lux
@@ -1,24 +1,18 @@
(.module: {#.doc "Commons syntax writers."}
lux
- (lux (data (coll [list "L/" Functor<List>])
+ (lux (data (coll [list "list/" Functor<List>])
[product])
(macro [code]))
[// #*])
## Exports
-(def: #export (export ?el)
- (-> (Maybe Export) (List Code))
- (case ?el
- #.None
- (list)
-
- (#.Some #//.Exported)
+(def: #export (export exported?)
+ (-> Bool (List Code))
+ (if exported?
(list (' #export))
-
- (#.Some #//.Hidden)
- (list (' #hidden))))
+ (list)))
## Annotations
(def: #export (annotations anns)
(-> Annotations Code)
- (|> anns (L/map (product.both code.tag id)) code.record))
+ (|> anns (list/map (product.both code.tag id)) code.record))