throw READ_ERROR when parser raised

2014-07-04 13:32:54 +09:00 · 2014-07-04 13:32:54 +09:00 · d810e42666
parent 1402a97354
commit d810e42666
1 changed files with 1 additions and 1 deletions
--- a/src/read.c
+++ b/src/read.c
@ -20,7 +20,7 @@ static pic_value read_nullable(pic_state *pic, struct pic_port *port, char c);
 static noreturn void
 read_error(pic_state *pic, const char *msg)
 {
-  pic_error(pic, msg);
+  pic_throw(pic, PIC_ERROR_READ, msg, pic_nil_value());
 }

 static char