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

[factor.git] / core / hashtables / hashtables.factor

diff --git a/core/hashtables/hashtables.factor b/core/hashtables/hashtables.factor
index e31ed925d15e55672974c115833368181f52c73f..be5aa97634e02423ffff8382fa9ad96f14d3ebd4 100644 (file)
--- a/core/hashtables/hashtables.factor
+++ b/core/hashtables/hashtables.factor
@@ -131,7 +131,7 @@ M: hashtable set-at ( value key hash -- )
 : push-unsafe ( elt seq -- )
     [ length ] keep
     [ underlying>> set-array-nth ]
-    [ [ 1 fixnum+fast { array-capacity } declare ] dip (>>length) ]
+    [ [ 1 fixnum+fast { array-capacity } declare ] dip length<< ]
     2bi ; inline
 
 PRIVATE>