Parse panic!
This commit is contained in:
parent
1415461876
commit
4966271aa3
|
@ -825,6 +825,11 @@
|
||||||
:path (get-in path [::ast :value])
|
:path (get-in path [::ast :value])
|
||||||
:name (get-in name [::ast :word])}))))
|
:name (get-in name [::ast :word])}))))
|
||||||
|
|
||||||
|
(defn- parse-panic [parser]
|
||||||
|
(let [expr (parse-expr (advance parser))]
|
||||||
|
(assoc expr ::ast {::ast/type ::ast/panic
|
||||||
|
:token (current parser) :expr (::ast expr)})))
|
||||||
|
|
||||||
(defn- parse-expr
|
(defn- parse-expr
|
||||||
([parser] (parse-expr parser sync-on))
|
([parser] (parse-expr parser sync-on))
|
||||||
([parser sync-on]
|
([parser sync-on]
|
||||||
|
@ -885,6 +890,8 @@
|
||||||
|
|
||||||
::token/recur (parse-recur parser)
|
::token/recur (parse-recur parser)
|
||||||
|
|
||||||
|
::token/panic (parse-panic parser)
|
||||||
|
|
||||||
;; TODO: improve handling of comments?
|
;; TODO: improve handling of comments?
|
||||||
;; Scanner now just skips comments
|
;; Scanner now just skips comments
|
||||||
;; ::token/comment (advance parser)
|
;; ::token/comment (advance parser)
|
||||||
|
@ -907,7 +914,7 @@
|
||||||
|
|
||||||
(do
|
(do
|
||||||
(def pp pp/pprint)
|
(def pp pp/pprint)
|
||||||
(def source "foo
|
(def source "panic! foo
|
||||||
|
|
||||||
")
|
")
|
||||||
(def lexed (scanner/scan source))
|
(def lexed (scanner/scan source))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user