pvsr.dev
+2
-2
lox/parser.janet
+2
-2
lox/parser.janet
···
45
45
(:consume parser :right-paren "Expect ')' after expression.")
46
46
[:grouping expr])))
47
47
48
-
(defn- doCall [parser callee]
48
+
(defn- do-call [parser callee]
49
49
(def args @[])
50
50
(unless (:check parser :right-paren)
51
51
(array/push args (expression parser))
···
59
59
(defn- call [parser]
60
60
(var expr (primary parser))
61
61
(while (:match parser :left-paren)
62
-
(set expr (doCall parser expr)))
62
+
(set expr (do-call parser expr)))
63
63
expr)
64
64
65
65
(defn- unary [parser]