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

Add sanity checks

db4
Slava Pestov 2008-06-14 04:01:16 -05:00
parent 198b1a0d56
commit 149e4345c6
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/html/components/components.factor
View File

@ -10,9 +10,12 @@ IN: html.components
SYMBOL: values
: value ( name -- value ) values get at ;
: check-value-name ( name -- name )
dup string? [ "Value name not a string" throw ] unless ;
: set-value ( value name -- ) values get set-at ;
: value ( name -- value ) check-value-name values get at ;
: set-value ( value name -- ) check-value-name values get set-at ;
: blank-values ( -- ) H{ } clone values set ;