Move make to its own vocabulary, remove fry _ feature

[factor.git] / basis / mime-types / mime-types.factor

diff --git a/basis/mime-types/mime-types.factor b/basis/mime-types/mime-types.factor
index 9489da814962ff8acd4b054baf5e95016c2954ac..42b8f2e739b53fb6117fde78413198bfac48ab9d 100755 (executable)
--- a/basis/mime-types/mime-types.factor
+++ b/basis/mime-types/mime-types.factor
@@ -16,7 +16,9 @@ MEMO: mime-db ( -- seq )
     } ;
 
 MEMO: mime-types ( -- assoc )
-    [ mime-db [ unclip '[ , _ set ] each ] each ] H{ } make-assoc
+    [
+        mime-db [ unclip '[ [ , ] dip set ] each ] each
+    ] H{ } make-assoc
     nonstandard-mime-types assoc-union ;
 
 : mime-type ( filename -- mime-type )