diff options
Diffstat (limited to 'stdlib/source/library/lux/macro/code.lux')
-rw-r--r-- | stdlib/source/library/lux/macro/code.lux | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/library/lux/macro/code.lux b/stdlib/source/library/lux/macro/code.lux index 6dc56c320..0131567c7 100644 --- a/stdlib/source/library/lux/macro/code.lux +++ b/stdlib/source/library/lux/macro/code.lux @@ -36,7 +36,7 @@ ... (type: Code ... (Ann Location (Code' (Ann Location)))) -(template [<name> <type> <tag>] +(with_template [<name> <type> <tag>] [(def: .public (<name> x) (-> <type> Code) [location.dummy {<tag> x}])] @@ -53,7 +53,7 @@ [tuple (List Code) .#Tuple] ) -(template [<name> <tag>] +(with_template [<name> <tag>] [(def: .public (<name> name) (-> Text Code) [location.dummy {<tag> ["" name]}])] @@ -65,7 +65,7 @@ (def: (= x y) (case [x y] - (^.template [<tag> <eq>] + (^.with_template [<tag> <eq>] [[[_ {<tag> x'}] [_ {<tag> y'}]] (at <eq> = x' y')]) ([.#Bit bit.equivalence] @@ -76,7 +76,7 @@ [.#Text text.equivalence] [.#Symbol symbol.equivalence]) - (^.template [<tag>] + (^.with_template [<tag>] [[[_ {<tag> xs'}] [_ {<tag> ys'}]] (at (list.equivalence =) = xs' ys')]) ([.#Form] @@ -89,7 +89,7 @@ (def: .public (format ast) (-> Code Text) (case ast - (^.template [<tag> <struct>] + (^.with_template [<tag> <struct>] [[_ {<tag> value}] (at <struct> encoded value)]) ([.#Bit bit.codec] @@ -102,7 +102,7 @@ [_ {.#Text value}] (text.format value) - (^.template [<tag> <open> <close>] + (^.with_template [<tag> <open> <close>] [[_ {<tag> members}] (all text#composite <open> @@ -124,7 +124,7 @@ (if (at ..equivalence = original ast) substitute (case ast - (^.template [<tag>] + (^.with_template [<tag>] [[location {<tag> parts}] [location {<tag> (list#each (replaced original substitute) parts)}]]) ([.#Form] |