From: Bruno Deferrari <utizoc@gmail.com>
Date: Thu, 18 Jun 2009 23:35:38 +0000 (-0300)
Subject: tokyo.assoc-functor: Fix at*
X-Git-Tag: 0.97~6105^2^2~1
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=cd4203f00e18c198b1f878e6d3dddd298afc135a

tokyo.assoc-functor: Fix at*
---

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 <int>
+    handle>> swap object>bytes dup length 0 <int>
     DBGET [ [ memory>object ] [ tcfree ] bi t ] [ f f ] if* ;
 
 M: TYPE assoc-size ( db -- size ) handle>> DBRNUM ;