html.templates.chloe.syntax: Rename tags to chloe-tags.

tags word is generic and all the other words that deal with
chloe tags have chloe in the name.

diff --git a/basis/fixups/fixups.factor b/basis/fixups/fixups.factor
index 34fe1ba6782d404472d005865385c1f919bf4543..d7c70b66345917599e541a34a012801b4620804f 100644 (file)
--- a/basis/fixups/fixups.factor
+++ b/basis/fixups/fixups.factor
@@ -41,6 +41,7 @@ CONSTANT: word-renames {
     { "iota" { "sequences:<iota>" ".98" } }
     { "git-checkout-existing-branch" { "git-checkout-existing" "0.99" } }
     { "git-checkout-existing-branch*" { "git-checkout-existing*" "0.99" } }
+    { "tags" { "chloe-tags" "0.99" } }
 }
 
 : compute-assoc-fixups ( continuation name assoc -- seq )

diff --git a/basis/html/templates/chloe/compiler/compiler.factor b/basis/html/templates/chloe/compiler/compiler.factor
index b1ff5cf6bb3fa0797194289eae875a9b92d5c758..bf7108f3e0c5b53d4927907cfedfa4b38b1c906f 100644 (file)
--- a/basis/html/templates/chloe/compiler/compiler.factor
+++ b/basis/html/templates/chloe/compiler/compiler.factor
@@ -117,7 +117,7 @@ CONSTANT: self-closing-tags {
 ERROR: unknown-chloe-tag tag ;
 
 : compile-chloe-tag ( tag -- )
-    dup main>> dup tags get at
+    dup main>> dup chloe-tags get at
     [ call( tag -- ) ]
     [ unknown-chloe-tag ]
     ?if ;

diff --git a/basis/html/templates/chloe/syntax/syntax.factor b/basis/html/templates/chloe/syntax/syntax.factor
index b417af9028f11bd4df866ac890eabe5657b44fd5..d1b28abb7fbcaecb15e0c8b48cb7c5d18bc8ff7e 100644 (file)
--- a/basis/html/templates/chloe/syntax/syntax.factor
+++ b/basis/html/templates/chloe/syntax/syntax.factor
@@ -4,11 +4,11 @@ USING: accessors assocs kernel lexer namespaces parser sequences
 xml.data xml.syntax ;
 IN: html.templates.chloe.syntax
 
-SYMBOL: tags
+SYMBOL: chloe-tags
 
-tags [ H{ } clone ] initialize
+chloe-tags [ H{ } clone ] initialize
 
-: define-chloe-tag ( name quot -- ) swap tags get set-at ;
+: define-chloe-tag ( name quot -- ) swap chloe-tags get set-at ;
 
 SYNTAX: CHLOE:
     scan-token parse-definition define-chloe-tag ;