core: Add the shuffler words but without primitives.

[factor.git] / basis / xmode / catalog / catalog.factor

diff --git a/basis/xmode/catalog/catalog.factor b/basis/xmode/catalog/catalog.factor
index 89bc0a6e93a71c5e2d6194789c524acc8115989a..a96389d30a523d6b95a5e663fcef8d3cc58e1714 100644 (file)
--- a/basis/xmode/catalog/catalog.factor
+++ b/basis/xmode/catalog/catalog.factor
@@ -117,7 +117,7 @@ DEFER: finalize-rule-set
     [ file-name ] dip
     modes
     [ nip [ 2dup ] dip suitable-mode? ] assoc-find
-    2drop [ 2drop ] dip ;
+    2drop 2nip ;
 
 : find-mode ( file-name first-line -- mode )
     ?find-mode "text" or ; inline