twc/ludus
4
0
Fork 0
Code Issues 32 Pull Requests Packages Projects 8 Releases Wiki Activity

clean up little bugs

Browse Source
This commit is contained in:
Scott Richmond 2024-06-04 13:02:15 -04:00
parent df274799be
commit 1842923fa3
3 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
janet/base.janet
View File

@ -78,7 +78,7 @@
:typed (string (show-patt (get-in x [:data 1])) " as " (show-patt (get-in x [:data 0]))) :typed (string (show-patt (get-in x [:data 1])) " as " (show-patt (get-in x [:data 0])))
:interpolated (get-in x [:token :lexeme]) :interpolated (get-in x [:token :lexeme])
:string (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) (defn- docstring [fnn] :todo)

1
janet/interpreter.janet
View File

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

5
janet/parser.janet
View File

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