diff options
Diffstat (limited to 'stdlib/source/test/lux/compiler/default/phase/analysis/primitive.lux')
-rw-r--r-- | stdlib/source/test/lux/compiler/default/phase/analysis/primitive.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/test/lux/compiler/default/phase/analysis/primitive.lux b/stdlib/source/test/lux/compiler/default/phase/analysis/primitive.lux index de079094b..b73e4f81c 100644 --- a/stdlib/source/test/lux/compiler/default/phase/analysis/primitive.lux +++ b/stdlib/source/test/lux/compiler/default/phase/analysis/primitive.lux @@ -9,8 +9,8 @@ [text format]] [math - ["r" random ("random/." monad)]] - [".L" type ("type/." equivalence)] + ["r" random ("#/." monad)]] + ["." type ("#/." equivalence)] [macro ["." code]] [compiler @@ -35,13 +35,13 @@ (def: unit (r.Random Code) - (random/wrap (' []))) + (r/wrap (' []))) (def: #export primitive (r.Random [Type Code]) (`` ($_ r.either (~~ (do-template [<type> <code-wrapper> <value-gen>] - [(r.and (random/wrap <type>) (random/map <code-wrapper> <value-gen>))] + [(r.and (r/wrap <type>) (r/map <code-wrapper> <value-gen>))] [Any code.tuple (r.list 0 ..unit)] [Bit code.bit r.bit] |