Removing more >r/r> usages

[factor.git] / basis / html / elements / elements.factor

diff --git a/basis/html/elements/elements.factor b/basis/html/elements/elements.factor
index 0ee6955e292246889ec1bda71df4c225ba8147ff..fa92f18d3480e0e238fde94992c3991e8ed7965c 100644 (file)
--- a/basis/html/elements/elements.factor
+++ b/basis/html/elements/elements.factor
@@ -24,7 +24,7 @@ SYMBOL: html
 : html-word ( name def effect -- )
     #! Define 'word creating' word to allow
     #! dynamically creating words.
-    >r >r elements-vocab create r> r> define-declared ;
+    [ elements-vocab create ] 2dip define-declared ;
 
 : <foo> ( str -- <str> ) "<" swap ">" 3append ;