From fff23d752812e2ae22bebc21d24c42bb145a916e Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 9 May 2010 23:26:51 +0000
Subject: More cleanups

---
 src/interp/msgdb.boot | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/interp/msgdb.boot')

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)
-- 
cgit v1.2.3