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 2d8a22b6..20d9104f 100644 --- a/src/interp/bc-util.boot +++ b/src/interp/bc-util.boot @@ -127,13 +127,13 @@ bcNotReady htPage == htShowPage() htStringPad(n,w) == - s := STRINGIMAGE n + s := toString n ws := #s - strconc('"\space{",STRINGIMAGE (w - ws + 1),'"}",s) + strconc('"\space{",toString (w - ws + 1),'"}",s) stringList2String x == null x => '"()" strconc('"(",first x,strconc/[strconc('",",y) for y in rest x],'")") -htMkName(s,n) == strconc(s,STRINGIMAGE n) +htMkName(s,n) == strconc(s,toString n) |