steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tokyo.assoc-functor: Fix >alist and delete-at

db4
Bruno Deferrari 2009-06-18 21:02:29 -03:00
parent cd4203f00e
commit da2a94a199
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/tokyo/assoc-functor/assoc-functor.factor
View File

@ -1,6 +1,6 @@
! Copyright (C) 2009 Bruno Deferrari ! Copyright (C) 2009 Bruno Deferrari
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien.c-types arrays assocs destructors functors USING: accessors alien.c-types arrays assocs destructors fry functors
kernel locals sequences serialize tokyo.alien.tcutil tokyo.utils vectors ; kernel locals sequences serialize tokyo.alien.tcutil tokyo.utils vectors ;
IN: tokyo.assoc-functor IN: tokyo.assoc-functor
@ -42,13 +42,13 @@ M: TYPE assoc-size ( db -- size ) handle>> DBRNUM ;
] while 3drop ; ] while 3drop ;
M: TYPE >alist ( db -- alist ) M: TYPE >alist ( db -- alist )
dup DBKEYS [ over at 2array ] with nip ; [ DBKEYS dup ] keep '[ dup _ at 2array ] change-each ;
M: TYPE set-at ( value key db -- ) M: TYPE set-at ( value key db -- )
handle>> spin [ object>bytes dup length ] bi@ DBPUT drop ; handle>> spin [ object>bytes dup length ] bi@ DBPUT drop ;
M: TYPE delete-at ( key db -- ) M: TYPE delete-at ( key db -- )
handle>> [ object>bytes dup length ] DBOUT drop ; handle>> swap object>bytes dup length DBOUT drop ;
M: TYPE clear-assoc ( db -- ) handle>> DBVANISH drop ; M: TYPE clear-assoc ( db -- ) handle>> DBVANISH drop ;