beta 2010.08.19 01:08

1 files changed, 1 insertions, 12 deletions

diff --git a/tex/context/base/l-string.lua b/tex/context/base/l-string.lua
index 9856d5212..cc04168e9 100644
--- a/tex/context/base/l-string.lua
+++ b/tex/context/base/l-string.lua
@@ -6,6 +6,7 @@ if not modules then modules = { } end modules ['l-string'] = {
     license   = "see context related readme files"
 }
 
+local string = string
 local sub, gsub, find, match, gmatch, format, char, byte, rep, lower = string.sub, string.gsub, string.find, string.match, string.gmatch, string.format, string.char, string.byte, string.rep, string.lower
 local lpegmatch = lpeg.match
 
@@ -165,18 +166,6 @@ end
 
 string.padd = string.rpadd
 
-function is_number(str) -- tonumber
-    return find(str,"^[%-%+]?[%d]-%.?[%d+]$") == 1
-end
-
---~ print(is_number("1"))
---~ print(is_number("1.1"))
---~ print(is_number(".1"))
---~ print(is_number("-0.1"))
---~ print(is_number("+0.1"))
---~ print(is_number("-.1"))
---~ print(is_number("+.1"))
-
 function string:split_settings() -- no {} handling, see l-aux for lpeg variant
     if find(self,"=") then
         local t = { }