diff options
Diffstat (limited to 'stdlib/source/library/lux/macro/code.lux')
-rw-r--r-- | stdlib/source/library/lux/macro/code.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/library/lux/macro/code.lux b/stdlib/source/library/lux/macro/code.lux index 72b09aff4..53b0d826e 100644 --- a/stdlib/source/library/lux/macro/code.lux +++ b/stdlib/source/library/lux/macro/code.lux @@ -37,7 +37,7 @@ ... (Ann Location (Code' (Ann Location)))) (with_template [<name> <type> <tag>] - [(def: .public (<name> x) + [(def .public (<name> x) (-> <type> Code) [location.dummy {<tag> x}])] @@ -54,16 +54,16 @@ ) (with_template [<name> <tag>] - [(def: .public (<name> name) + [(def .public (<name> name) (-> Text Code) [location.dummy {<tag> ["" name]}])] [local .#Symbol]) -(def: .public equivalence +(def .public equivalence (Equivalence Code) (implementation - (def: (= x y) + (def (= x y) (case [x y] (^.with_template [<tag> <eq>] [[[_ {<tag> x'}] [_ {<tag> y'}]] @@ -86,7 +86,7 @@ _ false)))) -(def: .public (format ast) +(def .public (format ast) (-> Code Text) (case ast (^.with_template [<tag> <struct>] @@ -119,7 +119,7 @@ [.#Tuple "[" "]"]) )) -(def: .public (replaced original substitute ast) +(def .public (replaced original substitute ast) (-> Code Code Code Code) (if (at ..equivalence = original ast) substitute |