diff options
Diffstat (limited to 'stdlib/source/test/lux/macro/code.lux')
| -rw-r--r-- | stdlib/source/test/lux/macro/code.lux | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/stdlib/source/test/lux/macro/code.lux b/stdlib/source/test/lux/macro/code.lux index c8d0b8077..f395c5509 100644 --- a/stdlib/source/test/lux/macro/code.lux +++ b/stdlib/source/test/lux/macro/code.lux @@ -1,6 +1,6 @@ (.module: [lux #* - data/text/format + ["%" data/text/format (#+ format)] [abstract/monad (#+ do)] ["r" math/random (#+ Random)] ["_" test (#+ Test)] @@ -11,7 +11,7 @@ (def: #export test Test - (<| (_.context (%name (name-of /._))) + (<| (_.context (%.name (name-of /._))) (do r.monad [bit r.bit nat r.nat @@ -35,17 +35,17 @@ (and (text@= <text> (/.to-text code)) (:: /.equivalence = code code))))] - ["bit" (/.bit bit) (%b bit)] - ["nat" (/.nat nat) (%n nat)] - ["int" (/.int int) (%i int)] - ["rev" (/.rev rev) (%r rev)] - ["frac" (/.frac frac) (%f frac)] - ["text" (/.text text) (%t text)] + ["bit" (/.bit bit) (%.bit bit)] + ["nat" (/.nat nat) (%.nat nat)] + ["int" (/.int int) (%.int int)] + ["rev" (/.rev rev) (%.rev rev)] + ["frac" (/.frac frac) (%.frac frac)] + ["text" (/.text text) (%.text text)] ["local-ltag" (/.local-tag short) (format "#" short)] - ["lag" (/.tag [module short]) (format "#" (%name name))] + ["lag" (/.tag [module short]) (format "#" (%.name name))] ["local-identifier" (/.local-identifier short) short] - ["identifier" (/.identifier [module short]) (%name name)] - ["form" (/.form (list (/.bit bit) (/.int int))) (format "(" (%b bit) " " (%i int) ")")] - ["tuple" (/.tuple (list (/.bit bit) (/.int int))) (format "[" (%b bit) " " (%i int) "]")] - ["record" (/.record (list [(/.bit bit) (/.int int)])) (format "{" (%b bit) " " (%i int) "}")] + ["identifier" (/.identifier [module short]) (%.name name)] + ["form" (/.form (list (/.bit bit) (/.int int))) (format "(" (%.bit bit) " " (%.int int) ")")] + ["tuple" (/.tuple (list (/.bit bit) (/.int int))) (format "[" (%.bit bit) " " (%.int int) "]")] + ["record" (/.record (list [(/.bit bit) (/.int int)])) (format "{" (%.bit bit) " " (%.int int) "}")] ))))))) |