Update of /cvsroot/q-lang/q/stdlib
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv27157
Modified Files:
dict.q
Log Message:
bugfixes
Index: dict.q
===================================================================
RCS file: /cvsroot/q-lang/q/stdlib/dict.q,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** dict.q 21 Feb 2008 09:18:55 -0000 1.9
--- dict.q 21 Feb 2008 11:48:29 -0000 1.10
***************
*** 161,166 ****
where (NewR, RightHasChanged) = rmlasta R;
- delete D Key = fst (deletea D Key);
-
deletea nil _ = (nil, false);
deletea (bin Key _ _ nil R ) Key
--- 161,164 ----
***************
*** 323,325 ****
--- 321,326 ----
insert D:Dict (X,Y) = fst (inserta D X Y);
+
+ delete D:Dict X = fst (deletea D X);
+
update D:Dict X Y = insert D (X,Y);
|
