locals: simplify point-free using multi-def.

[factor.git] / core / locals / types / types.factor

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