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

tokyo.assoc-functor: Fix at*

Bruno Deferrari 2009-06-18 20:35:38 -03:00
parent 5b40a5f62f
commit 8400cc879e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -28,7 +28,7 @@ INSTANCE: TYPE assoc
M: TYPE dispose* [ DBDEL f ] change-handle drop ; M: TYPE dispose* [ DBDEL f ] change-handle drop ;
M: TYPE at* ( key db -- value/f ? ) M: TYPE at* ( key db -- value/f ? )
handle>> [ object>bytes dup length ] dip 0 <int> handle>> swap object>bytes dup length 0 <int>
DBGET [ [ memory>object ] [ tcfree ] bi t ] [ f f ] if* ; DBGET [ [ memory>object ] [ tcfree ] bi t ] [ f f ] if* ;
M: TYPE assoc-size ( db -- size ) handle>> DBRNUM ; M: TYPE assoc-size ( db -- size ) handle>> DBRNUM ;