conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix read_vector bug

This commit is contained in:
Yuichi Nishiwaki 2014-06-25 21:40:51 +09:00
parent 029efc91c9
commit 4d9dc8011c
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/read.c
View File

@ -362,6 +362,8 @@ read_vector(pic_state *pic, struct pic_port *port, char c)
{ {
pic_value val; pic_value val;
c = next(port);
val = pic_nil_value(); val = pic_nil_value();
while ((c = skip(port, c)) != ')') { while ((c = skip(port, c)) != ')') {
val = pic_cons(pic, read(pic, port, c), val); val = pic_cons(pic, read(pic, port, c), val);