factor: move tc-lisp-talk to unmaintained as it uses HEREDOC:. Fix morse. THINGS PARSE

core/modern/modern.factor

@@ -543,7 +543,9 @@ vocab-roots get [ vocabs-from reject-some-paths ] map concat
 {
     "specialized-arrays" "specialized-vectors"
     "math.blas.matrices" "math.blas.vectors" "math.vectors.simd"
-    "math.vectors.simd.cords" "game.debug"
+    "math.vectors.simd.cords" "game.debug" "gpu.util" "gpu.effects.blur"
+    "gpu.effects.step" "model-viewer" "terrain.shaders" "spheres"
+    "bunny.cel-shaded" "bunny.outlined"
 } diff
 [ modern-source-path dup <pathname> . path>literals ] map-zip
 ]]

demos/morse/morse.factor

@@ -112,7 +112,7 @@ PRIVATE>
 : morse> ( morse -- plain )
     replace-underscores morse>sentence ;
 
-SYNTAX: MORSE[[ "]]" parse-multiline-string morse> suffix! ;
+SYNTAX: \ MORSE[[ "]]" parse-multiline-string morse> suffix! ;
 
 PRIVATE<
 

demos/rosetta-code/balanced-brackets/balanced-brackets.factor

@@ -27,7 +27,7 @@ in: rosetta-code.balanced-brackets
     str [
         {
             { char: \[ [ 1 ] }
-            { char: ] [ -1 ] }
+            { char: \] [ -1 ] }
             [ drop 0 ]
         } case counter + counter!
         counter 0 < [ f ok! ] when

demos/talks/google-tech-talk/google-tech-talk.factor

@@ -175,9 +175,9 @@ CONSTANT: google-slides
         "We define a mixin class for shapes, and add our existing data types as instances:"
         { $code
             "mixin: shape"
-            "INSTANCE: rectangle shape" ;
+            "INSTANCE: rectangle shape"
-            "INSTANCE: circle shape" ;
+            "INSTANCE: circle shape"
-            "INSTANCE: triangle shape" ;
+            "INSTANCE: triangle shape"
         }
     }
     { $slide "Object system"
@@ -210,7 +210,7 @@ CONSTANT: google-slides
         { $code
             "TUPLE: parallelogram ... ;"
             ""
-            "INSTANCE: parallelogram shape" ;
+            "INSTANCE: parallelogram shape"
             ""
             "M: parallelogram area ... ;"
             ""