diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/spec/compositor/generation/primitive.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/spec/compositor/generation/primitive.lux b/stdlib/source/spec/compositor/generation/primitive.lux index e3068a50a..e5b601677 100644 --- a/stdlib/source/spec/compositor/generation/primitive.lux +++ b/stdlib/source/spec/compositor/generation/primitive.lux @@ -9,7 +9,7 @@ [data ["." bit ("#@." equivalence)] [number - ["." frac]] + ["f" frac]] ["." text ("#@." equivalence) ["%" format (#+ format)]]] [math @@ -22,9 +22,9 @@ (def: (f/=' reference subject) (-> Frac Frac Bit) - (or (f/= reference subject) - (and (frac.not-a-number? reference) - (frac.not-a-number? subject)))) + (or (f.= reference subject) + (and (f.not-a-number? reference) + (f.not-a-number? subject)))) (def: #export (spec run) (-> Runner Test) @@ -42,7 +42,7 @@ ["bit" synthesis.bit r.bit bit@=] ["i64" synthesis.i64 r.i64 "lux i64 ="] - ["f64" synthesis.f64 r.frac f/='] + ["f64" synthesis.f64 r.frac f.='] ["text" synthesis.text (r.ascii 5) text@=] )) ))) |