diff options
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 == |