forked from syndicate-lang/preserves
Further improve error recovery
This commit is contained in:
parent
f0379c525d
commit
50eec6ba8e
|
@ -486,6 +486,7 @@
|
||||||
[(px #px#"^#base64\\{" (list _))
|
[(px #px#"^#base64\\{" (list _))
|
||||||
(read-base64-binary '())]
|
(read-base64-binary '())]
|
||||||
[_
|
[_
|
||||||
|
(read-char i)
|
||||||
(parse-error "Invalid preserve value")])]
|
(parse-error "Invalid preserve value")])]
|
||||||
[#\: (read-char i) (parse-error "Unexpected key/value separator between items")]
|
[#\: (read-char i) (parse-error "Unexpected key/value separator between items")]
|
||||||
[_ (read-raw-symbol '())])))
|
[_ (read-raw-symbol '())])))
|
||||||
|
|
Loading…
Reference in New Issue