Removing more >r/r> usages

[factor.git] / basis / tools / vocabs / vocabs.factor

diff --git a/basis/tools/vocabs/vocabs.factor b/basis/tools/vocabs/vocabs.factor
index d926b670786abc526be01ea0d427e0ec86b14a41..ef0c74d7c8483b03483d38d5385ffbfbc688af5d 100644 (file)
--- a/basis/tools/vocabs/vocabs.factor
+++ b/basis/tools/vocabs/vocabs.factor
@@ -203,7 +203,7 @@ M: vocab summary
 M: vocab-link summary vocab-summary ;\r
 \r
 : set-vocab-summary ( string vocab -- )\r
-    >r 1array r>\r
+    [ 1array ] dip\r
     dup vocab-summary-path\r
     set-vocab-file-contents ;\r
 \r