clean up little bugs

janet/base.janet

@@ -78,7 +78,7 @@
     :typed (string (show-patt (get-in x [:data 1])) " as " (show-patt (get-in x [:data 0])))
     :interpolated (get-in x [:token :lexeme])
     :string (get-in x [:token :lexeme])
-    (error "cannot show pattern of unknown type " (x :type))))
+    (error (string "cannot show pattern of unknown type " (x :type)))))
 
 (defn- docstring [fnn] :todo)
 

janet/interpreter.janet

@@ -566,7 +566,6 @@ fn foo {
   () -> :foo
   (_) -> :bar
 }
-foo ()
 `)
 (def result (run))
 # (b/show result)

janet/parser.janet

@@ -1132,15 +1132,14 @@
 )
 
 
-(do
-# (comment
+# (do
+(comment
 (def source `(foo as :bar, 12, :foo, _thing)
 `)
 (def scanned (s/scan source))
 (print "\n***NEW PARSE***\n")
 (def a-parser (new-parser scanned))
 (def parsed (pattern a-parser))
-(print (show-patt parsed))
 )