spin: swap rot is spin

[factor.git] / basis / persistent / hashtables / hashtables.factor

diff --git a/basis/persistent/hashtables/hashtables.factor b/basis/persistent/hashtables/hashtables.factor
index 28d2d37e09e0a6c49d4836425ef0262747cc0e74..5e46b496a7773ba652bdc3d5fc3d8c12d8bfef25 100644 (file)
--- a/basis/persistent/hashtables/hashtables.factor
+++ b/basis/persistent/hashtables/hashtables.factor
@@ -37,7 +37,7 @@ M: persistent-hash keys >alist keys ;
 M: persistent-hash values >alist values ;
 
 : >persistent-hash ( assoc -- phash )
-    T{ persistent-hash } swap [ swap rot new-at ] assoc-each ;
+    T{ persistent-hash } swap [ spin new-at ] assoc-each ;
 
 M: persistent-hash equal?
     over persistent-hash? [ assoc= ] [ 2drop f ] if ;