From 9e07dcd91c45bf8b22d932321f5c97e931ffe8ac Mon Sep 17 00:00:00 2001 From: dos-reis Date: Thu, 11 Jun 2009 23:00:40 +0000 Subject: * algebra/: Don't quote '!' at end of names. --- src/algebra/table.spad.pamphlet | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/algebra/table.spad.pamphlet') 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:%) == -- cgit v1.2.3