diff options
author | dos-reis <gdr@axiomatics.org> | 2010-12-12 04:12:20 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-12-12 04:12:20 +0000 |
commit | 2583edf6b172ea98d700773df5f51761aee01692 (patch) | |
tree | 8df49363ad97afcdeaca8a2dd0f18eb778849b22 /src/interp/br-con.boot | |
parent | dd14d434d1d7d06cd90a5a8a0fd1bef6cfffda8f (diff) | |
download | open-axiom-2583edf6b172ea98d700773df5f51761aee01692.tar.gz |
Clean symbol vs. character vs. string confusion
Diffstat (limited to 'src/interp/br-con.boot')
-rw-r--r-- | src/interp/br-con.boot | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/interp/br-con.boot b/src/interp/br-con.boot index 064060d3..f0c4ad18 100644 --- a/src/interp/br-con.boot +++ b/src/interp/br-con.boot @@ -427,7 +427,7 @@ kcPage(htPage,junk) == htpSetProperty(htPage,'heading,heading) if kind = '"category" and dbpHasDefaultCategory? xpart then htSay '"This category has default package " - bcCon(strconc(name,char '_&),'"") + bcCon(strconc(name,'"&"),'"") htSayStandard '"\newline" htBeginMenu(3) htSayStandard '"\item " @@ -581,9 +581,9 @@ kcdePage(htPage,junk) == constring := strconc(name,args) conform := kind ~= '"default package" => ncParseFromString constring - [INTERN name,:rest ncParseFromString strconc(char 'd,args)] --because of & + [INTERN name,:rest ncParseFromString strconc('"d",args)] --because of & pakname := --- kind = '"category" => INTERN strconc(name,char '_&) +-- kind = '"category" => INTERN strconc(name,'"&") opOf conform domList := getDependentsOfConstructor pakname cAlist := [[getConstructorForm x,:true] for x in domList] @@ -597,9 +597,9 @@ kcuPage(htPage,junk) == constring := strconc(name,args) conform := kind ~= '"default package" => ncParseFromString constring - [INTERN name,:rest ncParseFromString strconc(char 'd,args)] --because of & + [INTERN name,:rest ncParseFromString strconc('"d",args)] --because of & pakname := - kind = '"category" => INTERN strconc(name,char '_&) + kind = '"category" => INTERN strconc(name,'"&") opOf conform domList := getUsersOfConstructor pakname cAlist := [[getConstructorForm x,:true] for x in domList] @@ -620,7 +620,7 @@ kcnPage(htPage,junk) == htpSetProperty(htPage,'heading,heading) conform:= htpProperty(htPage,'conform) pakname := - kind = '"category" => INTERN strconc(PNAME name,char '_&) + kind = '"category" => INTERN strconc(PNAME name,'"&") opOf conform domList := getImports pakname if domname then @@ -711,7 +711,7 @@ mkConform(kind,name,argString) == systemError '"Keywords in argument list?" atom parse => [parse] parse - [INTERN name,:rest ncParseFromString strconc(char 'd,argString)] --& case + [INTERN name,:rest ncParseFromString strconc('"d",argString)] --& case --======================================================================= -- Operation Page for a Domain Form from Scratch |