]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/html/templates/chloe/syntax/syntax.factor
Fixing conflicts from stack checker changes
[factor.git] / basis / html / templates / chloe / syntax / syntax.factor
index 9e7079023d8def8154cf733f74c548d369a330ef..7af37b65929831ace268e9437c31c1dd6d6ff1b8 100644 (file)
@@ -26,8 +26,8 @@ CONSTANT: chloe-ns "http://factorcode.org/chloe/1.0"
 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 ;