From 4c186bae3ab9b128dacf0dd72806c94edb4516c9 Mon Sep 17 00:00:00 2001 From: Scott Richmond Date: Sat, 19 Mar 2022 17:26:13 -0400 Subject: [PATCH] Better syncing in collection literals --- src/ludus/parser.clj | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/ludus/parser.clj b/src/ludus/parser.clj index ce85524..fcb5bf8 100644 --- a/src/ludus/parser.clj +++ b/src/ludus/parser.clj @@ -169,7 +169,7 @@ ::token/eof (panic (assoc origin ::errors (::errors parser)) "Unterminated tuple" ::token/eof) - (let [parsed (parse-expr parser)] + (let [parsed (parse-expr parser #{::token/comma ::token/newline ::token/rparen})] (recur parsed members (::ast parsed))))))) (defn- parse-list [origin] @@ -196,7 +196,7 @@ ::token/eof (panic (assoc origin ::errors (::errors parser)) "Unterminated list" ::token/eof) - (let [parsed (parse-expr parser)] + (let [parsed (parse-expr parser #{::token/comma ::token/newline ::token/rbracket})] (recur parsed members (::ast parsed))))))) (defn- parse-set [origin] @@ -223,7 +223,7 @@ ::token/eof (panic (assoc origin ::errors (::errors parser)) "Unterminated set" ::token/eof) - (let [parsed (parse-expr parser)] + (let [parsed (parse-expr parser #{::token/comma ::token/newline ::token/rbrace})] (recur parsed members (::ast parsed))))))) (defn- parse-block [origin]