diff options
| author | Eduardo Julian | 2019-07-24 23:23:13 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-07-24 23:23:13 -0400 |
| commit | 30c19b40f5fd583d19aa7cf495a19c1b91f86320 (patch) | |
| tree | 77cda2c601e7975b665a358b96b7ae00882d3ed9 /stdlib/source/spec/compositor/generation/primitive.lux | |
| parent | 68b37de7281d31470263d0e06bc72b1c5b6c2e32 (diff) | |
No more "f/"-prefixed functions.
+ No more "m/"-prefixed functions.
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@=] )) ))) |