[q-lang-cvs] q/stdlib dict.q,1.9,1.10

[Albert G. <ag...@us...>]

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);