diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-06-11 23:00:40 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-06-11 23:00:40 +0000 |
| commit | 9e07dcd91c45bf8b22d932321f5c97e931ffe8ac (patch) | |
| tree | 6d2174e90e5779b1b3ab4ae7df3ae6603b66c6c2 /src/algebra/table.spad.pamphlet | |
| parent | 7bd82b57975bbc1ff5b87fed0739815c620ecdcc (diff) | |
| download | open-axiom-9e07dcd91c45bf8b22d932321f5c97e931ffe8ac.tar.gz | |
* algebra/: Don't quote '!' at end of names.
Diffstat (limited to 'src/algebra/table.spad.pamphlet')
| -rw-r--r-- | src/algebra/table.spad.pamphlet | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/table.spad.pamphlet b/src/algebra/table.spad.pamphlet index 4d073045..f62e6011 100644 --- a/src/algebra/table.spad.pamphlet +++ b/src/algebra/table.spad.pamphlet @@ -43,7 +43,7 @@ HashTable(Key, Entry, hashfn): Exports == Implementation where keys t == HKEYS(t)$Lisp # t == HCOUNT(t)$Lisp setelt(t, k, e) == HPUT(t,k,e)$Lisp - remove_!(k:Key, t:%) == + remove!(k:Key, t:%) == r := HGET(t,k,failMsg)$Lisp not EQ(r,failMsg)$Lisp => HREM(t, k)$Lisp @@ -185,7 +185,7 @@ GeneralSparseTable(Key, Entry, Tbl, dent): TableAggregate(Key, Entry) == Impl u::Entry setelt(t:%, k:Key, e:Entry) == - e = dent => (remove_!(k, t); e) + e = dent => (remove!(k, t); e) setelt(t, k, e)$Rep search(k:Key, t:%) == |