diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-29 03:20:55 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-29 03:20:55 +0000 |
| commit | 9c532285f28b723a3f70fc4eba19e3856ecbd3dd (patch) | |
| tree | 8cab2c9b8ac48fd5b39bfc7a1fd192ede88c4117 /src/interp/bc-util.boot | |
| parent | ca4b1b74d8e743f50f0db37f1b33265f46547f01 (diff) | |
| download | open-axiom-9c532285f28b723a3f70fc4eba19e3856ecbd3dd.tar.gz | |
SUBSTRING cleanup
Diffstat (limited to 'src/interp/bc-util.boot')
| -rw-r--r-- | src/interp/bc-util.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/bc-util.boot b/src/interp/bc-util.boot index e542e9b3..6c2531dc 100644 --- a/src/interp/bc-util.boot +++ b/src/interp/bc-util.boot @@ -52,7 +52,7 @@ bcMkFunction(name,arg,args) == bcString2HyString2 s == (string? s) and (s.0 = char '_") => len := #s - strconc('"\_"", SUBSTRING(s, 1, len-2), '"\_"") + strconc('"\_"", subString(s, 1, len-2), '"\_"") s bcString2HyString s == s @@ -99,8 +99,8 @@ bcString2WordList s == fn(s,0,MAXINDEX s) where k := or/[j for j in i..n | s.j ~= char '_ ] null integer? k => nil l := bcFindString(s,k + 1,n,char '_ ) - null integer? l => [SUBSTRING(s,k,nil)] - [SUBSTRING(s,k,l-k),:fn(s,l + 1,n)] + null integer? l => [subString(s,k)] + [subString(s,k,l-k),:fn(s,l + 1,n)] bcwords2liststring u == |