core: Add the shuffler words but without primitives.

[factor.git] / basis / tools / deploy / backend / backend.factor

diff --git a/basis/tools/deploy/backend/backend.factor b/basis/tools/deploy/backend/backend.factor
index ec86089dbef6349f08297ad6e26136d83f60c356..3b424823d545f972759dfaa00ad46ee316332321 100644 (file)
--- a/basis/tools/deploy/backend/backend.factor
+++ b/basis/tools/deploy/backend/backend.factor
@@ -20,7 +20,7 @@ ERROR: can't-deploy-library-file library ;
 
 : copy-library ( dir library -- )
     dup find-library-file
-    [ swap over file-name append-path copy-file ]
+    [ tuck file-name append-path copy-file ]
     [ can't-deploy-library-file ] ?if ;
 
 : copy-libraries ( manifest name dir -- )