diff options
| author | Eduardo Julian | 2019-06-20 22:32:59 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-06-20 22:32:59 -0400 |
| commit | b71b861008381626633bf28b033cd866d7e4e0b7 (patch) | |
| tree | 3ee21cd21e6dd80f6fcdf90173bbd6162b616d8f /stdlib/source/spec/compositor/generation/primitive.lux | |
| parent | fcee38da766a683ed5569978be153c6e7a8ae0af (diff) | |
Improved the convention for using text formatters.
Diffstat (limited to 'stdlib/source/spec/compositor/generation/primitive.lux')
| -rw-r--r-- | stdlib/source/spec/compositor/generation/primitive.lux | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/source/spec/compositor/generation/primitive.lux b/stdlib/source/spec/compositor/generation/primitive.lux index 63568fbce..48ff99933 100644 --- a/stdlib/source/spec/compositor/generation/primitive.lux +++ b/stdlib/source/spec/compositor/generation/primitive.lux @@ -11,7 +11,7 @@ [number ["." frac]] ["." text ("#@." equivalence) - format]] + ["%" format (#+ format)]]] [math ["r" random]] [tool @@ -32,7 +32,7 @@ (~~ (template [<evaluation-name> <synthesis> <gen> <test>] [(do r.monad [expected <gen>] - (_.test (%name (name-of <synthesis>)) + (_.test (%.name (name-of <synthesis>)) (|> (run <evaluation-name> (<synthesis> expected)) (case> (#error.Success actual) (<test> expected (:assume actual)) |