diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-17 18:27:08 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-17 18:27:08 +0000 |
| commit | 0de5ea3df4ffff2d97202a66629e19e0579410ea (patch) | |
| tree | 211b1d1d466c64aac746e9c377acf34adfb1c18b /src/interp/bc-util.boot | |
| parent | 1642c3f8ce94264813f4d7ac79f24f16f5fb7ded (diff) | |
| download | open-axiom-0de5ea3df4ffff2d97202a66629e19e0579410ea.tar.gz | |
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 6061e577..7f69eeb8 100644 --- a/src/interp/bc-util.boot +++ b/src/interp/bc-util.boot @@ -50,7 +50,7 @@ bcMkFunction(name,arg,args) == strconc(name,'"(",arg,strconc/[strconc('",", x) for x in args],'")") bcString2HyString2 s == - (string? s) and (s.0 = char '_") => + (string? s) and (s.0 = char "_"") => len := #s strconc('"\_"", subString(s, 1, len-2), '"\_"") s @@ -96,9 +96,9 @@ bcvspace() == bcHt '"\vspace{1}\newline " bcString2WordList s == fn(s,0,maxIndex s) where fn(s,i,n) == i > n => nil - k := or/[j for j in i..n | s.j ~= char '_ ] + k := or/[j for j in i..n | s.j ~= char " "] null integer? k => nil - l := bcFindString(s,k + 1,n,char '_ ) + l := bcFindString(s,k + 1,n,char " ") null integer? l => [subString(s,k)] [subString(s,k,l-k),:fn(s,l + 1,n)] |