Updating code for make and fry changes

[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 42b8f2e739b53fb6117fde78413198bfac48ab9d..909f762c504b4a1a5eb4f9695d23697ecdfedc1e 100755 (executable)
--- a/basis/mime-types/mime-types.factor
+++ b/basis/mime-types/mime-types.factor
@@ -17,7 +17,7 @@ MEMO: mime-db ( -- seq )
 
 MEMO: mime-types ( -- assoc )
     [
-        mime-db [ unclip '[ [ , ] dip set ] each ] each
+        mime-db [ unclip '[ [ _ ] dip set ] each ] each
     ] H{ } make-assoc
     nonstandard-mime-types assoc-union ;