diff options
author | Eduardo Julian | 2018-07-11 21:17:42 -0400 |
---|---|---|
committer | Eduardo Julian | 2018-07-11 21:17:42 -0400 |
commit | 0097e306a1e3b53e4cda304aac82b8778036eddf (patch) | |
tree | ee97d8986edd1c5d7162986a273fde0079fb5659 /stdlib/source/lux/data/number.lux | |
parent | f861af6c6bd57677ba4af2ee3275c69b11f68beb (diff) |
- Got rid of "lux text replace-once" and "lux text replace-all" extensions.
Diffstat (limited to 'stdlib/source/lux/data/number.lux')
-rw-r--r-- | stdlib/source/lux/data/number.lux | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/stdlib/source/lux/data/number.lux b/stdlib/source/lux/data/number.lux index 615565c16..1b2fc62d7 100644 --- a/stdlib/source/lux/data/number.lux +++ b/stdlib/source/lux/data/number.lux @@ -12,7 +12,8 @@ [data ["e" error] [maybe] - [bit]]]) + [bit] + [text]]]) ## [Structures] (do-template [<type> <test>] @@ -140,7 +141,7 @@ Frac (f// 0.0 <numerator>))] - [not-a-number 0.0 "Not a number."] + [not-a-number 0.0 "Not a number."] [positive-infinity 1.0 "Positive infinity."] [negative-infinity -1.0 "Negative infinity."] ) @@ -675,9 +676,9 @@ _ false)) -(def: (clean-underscores number) +(def: clean-underscores (-> Text Text) - ("lux text replace-all" number "_" "")) + (text.replace-all "_" "")) (do-template [<macro> <nat> <int> <rev> <frac> <error> <doc>] [(macro: #export (<macro> tokens state) |