aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/data/number.lux
diff options
context:
space:
mode:
authorEduardo Julian2018-07-11 21:17:42 -0400
committerEduardo Julian2018-07-11 21:17:42 -0400
commit0097e306a1e3b53e4cda304aac82b8778036eddf (patch)
treeee97d8986edd1c5d7162986a273fde0079fb5659 /stdlib/source/lux/data/number.lux
parentf861af6c6bd57677ba4af2ee3275c69b11f68beb (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.lux9
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)