diff options
author | dos-reis <gdr@axiomatics.org> | 2011-04-18 10:18:42 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-04-18 10:18:42 +0000 |
commit | 18cdfe64dbe07358b58d06a70b8d6bc2c276769d (patch) | |
tree | bd6067535d38995b2df9fcb62fc1cde3d4b98566 /src/interp/br-util.boot | |
parent | c552f9de83083a649b74510b522ceaebbbc0283b (diff) | |
download | open-axiom-18cdfe64dbe07358b58d06a70b8d6bc2c276769d.tar.gz |
cleanup
Diffstat (limited to 'src/interp/br-util.boot')
-rw-r--r-- | src/interp/br-util.boot | 8 |
1 files changed, 4 insertions, 4 deletions
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 == |