core: Add the shuffler words but without primitives.

[factor.git] / extra / ldcache / ldcache.factor

diff --git a/extra/ldcache/ldcache.factor b/extra/ldcache/ldcache.factor
index e185f5d675a8e83c5bdc465e1eb2bcfd423ce176..71c85197e6af075ab56d8149e68f25249647cf3a 100644 (file)
--- a/extra/ldcache/ldcache.factor
+++ b/extra/ldcache/ldcache.factor
@@ -42,7 +42,7 @@ STRUCT: EntryNew
     [ magic>> ] dip [ >byte-array ] bi@ check-magic ;
 
 : make-string ( string-table i -- str )
-    0 rot swapd [ index-from ] 2keep swapd subseq
+    0 spin [ index-from ] 2keep swapd subseq
     native-string-encoding decode ;
 
 : string-offset ( header-new -- n )