From 0de5ea3df4ffff2d97202a66629e19e0579410ea Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 17 Apr 2011 18:27:08 +0000 Subject: cleanup --- src/interp/bc-util.boot | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/interp/bc-util.boot') 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)] -- cgit v1.2.3