From f9f824edfb78f27120267b0f311433cbd8399b73 Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@jjjj.local>
Date: Thu, 10 Jan 2008 16:45:51 -1000
Subject: [PATCH] with-compilation-unit

---
 extra/html/elements/elements.factor | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/extra/html/elements/elements.factor b/extra/html/elements/elements.factor
index d737c113a8..e5e2e573be 100644
--- a/extra/html/elements/elements.factor
+++ b/extra/html/elements/elements.factor
@@ -4,7 +4,7 @@
 ! See http://factorcode.org/license.txt for BSD license.
 
 USING: io kernel namespaces prettyprint quotations
-sequences strings words xml.writer ;
+sequences strings words xml.writer compiler.units ;
 
 IN: html.elements
 
@@ -60,7 +60,9 @@ SYMBOL: html
 : html-word ( name def -- )
     #! Define 'word creating' word to allow
     #! dynamically creating words.
-    >r elements-vocab create r> define-compound ;
+    [
+        >r elements-vocab create r> define
+    ] with-compilation-unit ;
  
 : <foo> "<" swap ">" 3append ;