diff options
Diffstat (limited to 'stdlib/source/lux/data/number')
| -rw-r--r-- | stdlib/source/lux/data/number/complex.lux | 4 | ||||
| -rw-r--r-- | stdlib/source/lux/data/number/ratio.lux | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/lux/data/number/complex.lux b/stdlib/source/lux/data/number/complex.lux index e1cb226a0..e8bcb2268 100644 --- a/stdlib/source/lux/data/number/complex.lux +++ b/stdlib/source/lux/data/number/complex.lux @@ -313,14 +313,14 @@ (struct: #export _ (Codec Text Complex) (def: (encode (^slots [#real #imaginary])) - ($_ text/append "(" (f/encode real) ", " (f/encode imaginary) ")")) + ($_ text/compose "(" (f/encode real) ", " (f/encode imaginary) ")")) (def: (decode input) (case (do maybe;Monad<Maybe> [input' (text;clip +1 (n.- +1 (text;size input)) input)] (text;split-with "," input')) #;None - (#;Left (text/append "Wrong syntax for complex numbers: " input)) + (#;Left (text/compose "Wrong syntax for complex numbers: " input)) (#;Some [r' i']) (do R;Monad<Result> diff --git a/stdlib/source/lux/data/number/ratio.lux b/stdlib/source/lux/data/number/ratio.lux index 83f987827..51e9464b1 100644 --- a/stdlib/source/lux/data/number/ratio.lux +++ b/stdlib/source/lux/data/number/ratio.lux @@ -136,7 +136,7 @@ (struct: #export _ (Codec Text Ratio) (def: (encode (^slots [#numerator #denominator])) - ($_ Text/append (part-encode numerator) separator (part-encode denominator))) + ($_ Text/compose (part-encode numerator) separator (part-encode denominator))) (def: (decode input) (case (text;split-with separator input) @@ -148,7 +148,7 @@ #denominator denominator}))) #;None - (#;Left (Text/append "Invalid syntax for ratio: " input))))) + (#;Left (Text/compose "Invalid syntax for ratio: " input))))) (syntax: #export (ratio numerator [?denominator (p;opt s;any)]) {#;doc (doc "Rational literals." |