From cd4203f00e18c198b1f878e6d3dddd298afc135a Mon Sep 17 00:00:00 2001 From: Bruno Deferrari Date: Thu, 18 Jun 2009 20:35:38 -0300 Subject: [PATCH] tokyo.assoc-functor: Fix at* --- extra/tokyo/assoc-functor/assoc-functor.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/tokyo/assoc-functor/assoc-functor.factor b/extra/tokyo/assoc-functor/assoc-functor.factor index cc9a64fbe9..30debfc934 100644 --- a/extra/tokyo/assoc-functor/assoc-functor.factor +++ b/extra/tokyo/assoc-functor/assoc-functor.factor @@ -28,7 +28,7 @@ INSTANCE: TYPE assoc M: TYPE dispose* [ DBDEL f ] change-handle drop ; M: TYPE at* ( key db -- value/f ? ) - handle>> [ object>bytes dup length ] dip 0 + handle>> swap object>bytes dup length 0 DBGET [ [ memory>object ] [ tcfree ] bi t ] [ f f ] if* ; M: TYPE assoc-size ( db -- size ) handle>> DBRNUM ; -- 2.34.1