locals: use "f <word>".

diff --git a/core/locals/types/types.factor b/core/locals/types/types.factor
index 0d9ba3696251872d5ee175916db49245cdc122e8..9f401bbf9c6d1c6aa4dfcce1e2be4b2e168852f8 100644 (file)
--- a/core/locals/types/types.factor
+++ b/core/locals/types/types.factor
@@ -29,8 +29,7 @@ C: <multi-def> multi-def
 PREDICATE: local < word "local?" word-prop ;
 
 : <local> ( name -- word )
-    ! Create a local variable identifier
-    <uninterned-word>
+    f <word>
     dup t "local?" set-word-prop ;
 
 M: local literalize ;
@@ -38,7 +37,7 @@ M: local literalize ;
 PREDICATE: local-reader < word "local-reader?" word-prop ;
 
 : <local-reader> ( name -- word )
-    <uninterned-word>
+    f <word>
     dup t "local-reader?" set-word-prop ;
 
 M: local-reader literalize ;
@@ -46,7 +45,7 @@ M: local-reader literalize ;
 PREDICATE: local-writer < word "local-writer?" word-prop ;
 
 : <local-writer> ( reader -- word )
-    dup name>> "!" append <uninterned-word> {
+    dup name>> "!" append f <word> {
         [ nip t "local-writer?" set-word-prop ]
         [ swap "local-reader" set-word-prop ]
         [ "local-writer" set-word-prop ]