Merge branch 'master' into new_ui

[factor.git] / basis / html / templates / chloe / syntax / syntax.factor

diff --git a/basis/html/templates/chloe/syntax/syntax.factor b/basis/html/templates/chloe/syntax/syntax.factor
index faf8bed66bc0d79b3d0f117f0f90c9025e6cdf43..d9462d5dde9a1e76ff04118dad61745032e3a7e6 100644 (file)
--- a/basis/html/templates/chloe/syntax/syntax.factor
+++ b/basis/html/templates/chloe/syntax/syntax.factor
@@ -26,8 +26,8 @@ tags [ H{ } clone ] initialize
 XML-NS: chloe-name http://factorcode.org/chloe/1.0
 
 : required-attr ( tag name -- value )
-    tuck chloe-name attr
-    [ nip ] [ " attribute is required" append throw ] if* ;
+    [ nip ] [ chloe-name attr ] 2bi
+    [ ] [ " attribute is required" append throw ] ?if ;
 
 : optional-attr ( tag name -- value )
     chloe-name attr ;