Fix parse-list :token typo

2022-05-19 18:11:31 -04:00 · 2022-05-19 18:11:31 -04:00 · 4aeaa9e889
commit 4aeaa9e889
parent bd09dfa459
1 changed files with 1 additions and 1 deletions
--- a/src/ludus/parser.clj
+++ b/src/ludus/parser.clj
@ -211,7 +211,7 @@
        ::token/rbracket (let [ms (add-member members current_member)]
                           (assoc (advance parser) ::ast
                             {::ast/type ::ast/list
-                              :token origin
+                              :token (current origin)
                              :members ms}))

        (::token/comma ::token/newline)