From bd5f5b0df93361d31592738fb18d77a275f04bc9 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 30 Apr 2011 14:27:31 +0000
Subject: more cleanup

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

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

diff --git a/src/interp/setvars.boot b/src/interp/setvars.boot
index 659c784f..c2c2f563 100644
--- a/src/interp/setvars.boot
+++ b/src/interp/setvars.boot
@@ -321,14 +321,14 @@ displaySetVariableSettings(setTree,label) ==
   sayBrightly ["Variable     ",
                "Description                                ",
                  "Current Value"]
-  SAY fillerSpaces($LINELENGTH,specialChar 'hbar)
+  SAY fillerSpaces($LINELENGTH,char specialChar 'hbar)
   subtree := nil
   for setData in setTree repeat
     null satisfiesUserLevel setData.setLevel => nil
     setOption := object2String setData.setName
-    setOption := strconc(setOption,fillerSpaces(13-#setOption,'" "),
+    setOption := strconc(setOption,fillerSpaces(13-#setOption,char " "),
                          setData.setLabel)
-    setOption := strconc(setOption,fillerSpaces(55-#setOption,'" "))
+    setOption := strconc(setOption,fillerSpaces(55-#setOption,char " "))
     st := setData.setType
     st = 'FUNCTION =>
       opt :=
-- 
cgit v1.2.3