diff options
author | dos-reis <gdr@axiomatics.org> | 2011-05-05 15:40:21 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-05-05 15:40:21 +0000 |
commit | 104def0e400bbf3a0daed9e490e41485a9213c9d (patch) | |
tree | 048611db2122fb44a02ed8b4e55a70642e2a95ad /src/interp/c-doc.boot | |
parent | fb3bb6231462cddfb70301ea1672ebc04c8e829a (diff) | |
download | open-axiom-104def0e400bbf3a0daed9e490e41485a9213c9d.tar.gz |
more cleanup
Diffstat (limited to 'src/interp/c-doc.boot')
-rw-r--r-- | src/interp/c-doc.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/c-doc.boot b/src/interp/c-doc.boot index c124ff29..2a7bdf16 100644 --- a/src/interp/c-doc.boot +++ b/src/interp/c-doc.boot @@ -357,13 +357,13 @@ checkRecordHash u == and (u := checkLookForLeftBrace IFCDR u) and (u := IFCDR u) then htname := intern IFCAR u entry := HGET($htHash,htname) or [nil] - HPUT($htHash,htname,[first entry,:[[$name,:$origin],:rest entry]]) + tableValue($htHash,htname) := [first entry,:[[$name,:$origin],:rest entry]] else if member(x,$HTlisplinks) and (u := checkLookForLeftBrace IFCDR u) and (u := checkLookForRightBrace IFCDR u) and (u := checkLookForLeftBrace IFCDR u) and (u := IFCDR u) then htname := intern checkGetLispFunctionName checkGetStringBeforeRightBrace u entry := HGET($lispHash,htname) or [nil] - HPUT($lispHash,htname,[first entry,:[[$name,:$origin],:rest entry]]) + tableValue($lispHash,htname) := [first entry,:[[$name,:$origin],:rest entry]] else if ((p := member(x,'("\gloss" "\spadglos"))) or (q := member(x,'("\glossSee" "\spadglosSee")))) and (u := checkLookForLeftBrace IFCDR u) @@ -374,7 +374,7 @@ checkRecordHash u == u := IFCDR u htname := intern checkGetStringBeforeRightBrace u entry := HGET($glossHash,htname) or [nil] - HPUT($glossHash,htname,[first entry,:[[$name,:$origin],:rest entry]]) + tableValue($glossHash,htname) := [first entry,:[[$name,:$origin],:rest entry]] else if x is '"\spadsys" and (u := checkLookForLeftBrace IFCDR u) and (u := IFCDR u) then s := checkGetStringBeforeRightBrace u if stringChar(s,0) = char ")" then s := subString(s,1) @@ -386,7 +386,7 @@ checkRecordHash u == not spadSysChoose($setOptions,arg) => checkDocError ['"Incorrect \spadsys: ",s] entry := HGET($sysHash,htname) or [nil] - HPUT($sysHash,htname,[first entry,:[[$name,:$origin],:rest entry]]) + tableValue($sysHash,htname) := [first entry,:[[$name,:$origin],:rest entry]] else if x is '"\spadtype" and (u := checkLookForLeftBrace IFCDR u) and (u := IFCDR u) then s := checkGetStringBeforeRightBrace u parse := checkGetParse s |