diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-09 23:26:51 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 23:26:51 +0000 |
| commit | fff23d752812e2ae22bebc21d24c42bb145a916e (patch) | |
| tree | ba0250e810180be3a25ca1c916c398ed5a248db9 /src/interp/msgdb.boot | |
| parent | d1ae1fd7646c2b81c3d23752f6956c7db888e916 (diff) | |
| download | open-axiom-fff23d752812e2ae22bebc21d24c42bb145a916e.tar.gz | |
More cleanups
Diffstat (limited to 'src/interp/msgdb.boot')
| -rw-r--r-- | src/interp/msgdb.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/msgdb.boot b/src/interp/msgdb.boot index 446ccd09..b4bb9930 100644 --- a/src/interp/msgdb.boot +++ b/src/interp/msgdb.boot @@ -234,7 +234,7 @@ addBlanks msg == blanksOff := true msg1 := [] else - msg1 := LIST x + msg1 := [x] blank := '" " for y in rest msg repeat member(y,'("%n" %n)) => blanksOff := true @@ -766,7 +766,7 @@ brightPrintCenter(x,out == $OutputStream) == wid := STRINGLENGTH x if wid < $LINELENGTH then f := DIVIDE($LINELENGTH - wid,2) - x := LIST(fillerSpaces(f.0,'" "),x) + x := [fillerSpaces(f.0,'" "),x] for y in x repeat brightPrint0(y,out) NIL y := NIL @@ -811,7 +811,7 @@ brightPrintRightJustify(x, out == $OutputStream) == x := object2String x wid := STRINGLENGTH x wid < $LINELENGTH => - x := LIST(fillerSpaces($LINELENGTH-wid,'" "),x) + x := [fillerSpaces($LINELENGTH-wid,'" "),x] for y in x repeat brightPrint0(y,out) NIL brightPrint0(x,out) |