Language change: tuple slot setter words with stack effect ( value object -- ) are...

[factor.git] / extra / tokyo / abstractdb / abstractdb.factor

diff --git a/extra/tokyo/abstractdb/abstractdb.factor b/extra/tokyo/abstractdb/abstractdb.factor
index ea6d20fc2d3013a5c14d8ea7682a5fced97c8887..fc7f0d5e599748cab4d95ce161ef26961ac31a35 100644 (file)
--- a/extra/tokyo/abstractdb/abstractdb.factor
+++ b/extra/tokyo/abstractdb/abstractdb.factor
@@ -7,4 +7,4 @@ IN: tokyo.abstractdb
 
 : <tokyo-abstractdb> ( name -- tokyo-abstractdb )
     tcadbnew [ swap tcadbopen drop ] keep
-    tokyo-abstractdb new [ (>>handle) ] keep ;
+    tokyo-abstractdb new [ handle<< ] keep ;