From 18cdfe64dbe07358b58d06a70b8d6bc2c276769d Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 18 Apr 2011 10:18:42 +0000
Subject: cleanup

---
 src/interp/br-util.boot | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/interp/br-util.boot')

diff --git a/src/interp/br-util.boot b/src/interp/br-util.boot
index 960d0181..6b24f2f0 100644
--- a/src/interp/br-util.boot
+++ b/src/interp/br-util.boot
@@ -106,7 +106,7 @@ capitalize s ==
       ("default package" . "Default Package"))) 
    or
     res := COPY_-SEQ s
-    res.0 := UPCASE res.0
+    stringChar(res,0) := UPCASE stringChar(res,0)
     res
 
 escapeSpecialIds u ==   --very expensive function
@@ -150,7 +150,7 @@ htPred2English(x,:options) ==
         gn(x,op,l,prec)
         if prec < 5 then htSay '")"
       x = 'etc => htSay '"..."
-      IDENTP x and not MEMQ(x,$emList) => htSay escapeSpecialIds PNAME x
+      IDENTP x and not MEMQ(x,$emList) => htSay escapeSpecialIds symbolName x
       htSay form2HtString(x,$emList)
     gn(x,op,l,prec) ==
       op in '(NOT not) =>
@@ -182,7 +182,7 @@ unMkEvalable u ==
  u
 
 lisp2HT u == ['"_'",:fn u] where fn u ==
-  IDENTP u => escapeSpecialIds PNAME u
+  IDENTP u => escapeSpecialIds symbolName u
   string? u => escapeString u
   atom u => systemError()
   ['"_(",:"append"/[fn x for x in u],'")"]
@@ -348,7 +348,7 @@ bcStarSpaceOp(op,exposed?) ==
   null $includeUnexposed? => nil
   not exposed? =>
     htSayUnexposed()
-    if op.0 = char "*" then htSay '" "
+    if stringChar(op,0) = char "*" then htSay '" "
   htBlank()
 
 bcStarConform form ==
-- 
cgit v1.2.3