diff options
| author | Eduardo Julian | 2020-11-28 21:40:29 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2020-11-28 21:40:29 -0400 |
| commit | 7444deb1b80d469280fcb0684d91c13f752a86d6 (patch) | |
| tree | 132f8aa480dad400c20971f5e085876da8772b75 /stdlib/source/lux/data/number/ratio.lux | |
| parent | a02b7bf8ff358ccfa35b03272d28537aeac723ae (diff) | |
Re-named "_.claim" to "_.cover'".
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/data/number/ratio.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/lux/data/number/ratio.lux b/stdlib/source/lux/data/number/ratio.lux index 17bc1f2b4..8f22aca70 100644 --- a/stdlib/source/lux/data/number/ratio.lux +++ b/stdlib/source/lux/data/number/ratio.lux @@ -16,8 +16,8 @@ ["." product] ["." maybe] [number - ["n" nat ("#@." decimal)]] - ["." text ("#@." monoid)]] + ["n" nat ("#\." decimal)]] + ["." text ("#\." monoid)]] ["." math] [macro ["." code] @@ -97,19 +97,19 @@ (structure: #export codec (Codec Text Ratio) (def: (encode (^slots [#numerator #denominator])) - ($_ text@compose (n@encode numerator) ..separator (n@encode denominator))) + ($_ text\compose (n\encode numerator) ..separator (n\encode denominator))) (def: (decode input) (case (text.split-with ..separator input) (#.Some [num denom]) (do try.monad - [numerator (n@decode num) - denominator (n@decode denom)] + [numerator (n\decode num) + denominator (n\decode denom)] (wrap (normalize {#numerator numerator #denominator denominator}))) #.None - (#.Left (text@compose "Invalid syntax for ratio: " input))))) + (#.Left (text\compose "Invalid syntax for ratio: " input))))) (syntax: #export (ratio numerator {?denominator (p.maybe s.any)}) {#.doc (doc "Rational literals." |