steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

with-compilation-unit

db4
Doug Coleman 2008-01-10 16:45:51 -10:00
parent 5cec55ecda
commit f9f824edfb
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/html/elements/elements.factor
View File

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