M scripts/web.hex → scripts/web.hex

@@ -69,10 +69,10 @@ while
     ; Push highlighted text on the stack
     t-text
     ; Free temporary symbols
-    ;"t-text" #
-    ;"t-count" #
-    ;"t-delimiter" #
-    ;"t-replacement" #
+    "t-text" #
+    "t-count" #
+    "t-delimiter" #
+    "t-replacement" #
 ) "highlight" ::
 
 ; Convenience symbol for debugging
@@ -92,9 +92,9 @@ (pt-content pt-tag tag index 0x0 >)
         (pt-content pt-tag tag pt-repl replace "pt-content" :)
     while 
     pt-content
-    ;"pt-repl"    #
-    ;"pt-tag"     #
-    ;"pt-content" #
+    "pt-repl"    #
+    "pt-tag"     #
+    "pt-content" #
 ) "process-tag" ::
 
 
@@ -122,10 +122,10 @@ "sym-" t-symbol cat
     t-repl 
     process-tag
     ; Free temporary symbols
-    ;"t-repl" #
-    ;"t-symtag" #
-    ;"t-href" #
-    ;"t-symbol" #
+    "t-repl" #
+    "t-symtag" #
+    "t-href" #
+    "t-symbol" #
 ) "process-symbol" ::
 
 ; Load releases content for changelog
@@ -141,8 +141,8 @@ d-releases "/" id-release cat cat read releases-content swap cat "releases-content" :
             _releases_count 0x1 - "_releases_count" :
         )
     while
-    ;"_releases_count"        #
-    ;"id-release"    #
+    "_releases_count"   #
+    "id-release"        #
 ) "process-releases" ::
 
 ; Create changelog toc
@@ -165,8 +165,8 @@ changelog-toc
     "</ul>\n" 
     cat cat
     "changelog-toc" : 
-    ;"_gct_count"        #
-    ;"id-release"    #
+    "_gct_count"    #
+    "id-release"    #
 
 ) "generate-changelog-toc" ::
 
@@ -191,7 +191,7 @@ changelog-content symbol-links _c get process-symbol "changelog-content" :
         _c 0x1 + "_c" :
     )
 while
-;"_c" #
+"_c" #
 
 ; Write CHANGELOG.md
 changelog-content
@@ -241,7 +241,7 @@ new-content dst-file write
         _c 0x1 + "_c" :
     )
 while
-;"_c" #
+"_c" #
 
 
 ; Write assets
@@ -260,7 +260,7 @@ ("cp" src-file dst-file) () map " " join exec
         _c 0x1 + "_c" :
     )
 while
-;"_c" #
+"_c" #
 
 "*** Done!" puts