Commit 1daca28 1 parent e3591de commit 1daca28 Copy full SHA for 1daca28
File tree 1 file changed +3
-3
lines changed
1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change 190
190
(let [features (:features ctx)]
191
191
(loop [match non-match]
192
192
(let [k (parse-next ctx reader)]
193
- (if (identical? k ::expected-delimiter )
193
+ (if (kw- identical? k ::expected-delimiter )
194
194
match
195
195
(let [next-is-match? (and (non-match? match)
196
196
(or (contains? features k)
200
200
ctx (assoc ctx ::suppress true )]
201
201
(loop []
202
202
(let [next-val (parse-next ctx reader)]
203
- (when-not (identical? ::expected-delimiter
203
+ (when-not (kw- identical? ::expected-delimiter
204
204
next-val)
205
- (if (identical? ::eof next-val)
205
+ (if (kw- identical? ::eof next-val)
206
206
(let [delimiter (::expected-delimiter ctx)
207
207
{:keys [:row :col :char ]} (::opened-delimiter ctx)]
208
208
(throw-reader ctx
You can’t perform that action at this time.
0 commit comments