Fix conflict in libc

[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 f149c3fe474dbb3608c2a77338b24e76013c57f2..cfee92a310b7f040cd8441bd75aa7467542dc9c6 100644 (file)
--- a/basis/html/templates/chloe/syntax/syntax.factor
+++ b/basis/html/templates/chloe/syntax/syntax.factor
@@ -26,8 +26,8 @@ tags global [ H{ } clone or ] change-at
 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 ;