diff options
Diffstat (limited to 'stdlib/source/library/lux/macro/code.lux')
-rw-r--r-- | stdlib/source/library/lux/macro/code.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/library/lux/macro/code.lux b/stdlib/source/library/lux/macro/code.lux index ec99f68a4..916e82dee 100644 --- a/stdlib/source/library/lux/macro/code.lux +++ b/stdlib/source/library/lux/macro/code.lux @@ -36,7 +36,7 @@ ## (Ann Location (Code' (Ann Location)))) (template [<name> <type> <tag>] - [(def: #export (<name> x) + [(def: .public (<name> x) (-> <type> Code) [location.dummy (<tag> x)])] @@ -54,7 +54,7 @@ ) (template [<name> <tag> <doc>] - [(def: #export (<name> name) + [(def: .public (<name> name) {#.doc <doc>} (-> Text Code) [location.dummy (<tag> ["" name])])] @@ -62,7 +62,7 @@ [local_identifier #.Identifier "Produces a local identifier (an identifier with no module prefix)."] [local_tag #.Tag "Produces a local tag (a tag with no module prefix)."]) -(implementation: #export equivalence +(implementation: .public equivalence (Equivalence Code) (def: (= x y) @@ -92,7 +92,7 @@ _ false))) -(def: #export (format ast) +(def: .public (format ast) (-> Code Text) (case ast (^template [<tag> <struct>] @@ -139,7 +139,7 @@ "}") )) -(def: #export (replace original substitute ast) +(def: .public (replace original substitute ast) {#.doc "Replaces all code that looks like the 'original' with the 'substitute'."} (-> Code Code Code Code) (if (\ ..equivalence = original ast) |