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

cleanup

Browse Source
This commit is contained in:
Yuichi Nishiwaki
2017-05-07 02:41:21 +09:00
parent 166382d5c3
commit da27d2ff75
5 changed files with 6 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/ext/read.c
+2 -2
View File
@@ -547,8 +547,8 @@ read_label_set(pic_state *pic, pic_value port, int i, struct reader_control *p)
kh_val(h, it) = val = pic_cons(pic, pic_undef_value(pic), pic_undef_value(pic));
tmp = read_core(pic, port, c, p);
pair_ptr(pic, val)->car = pic_car(pic, tmp);
pair_ptr(pic, val)->cdr = pic_cdr(pic, tmp);
pic_set_car(pic, val, pic_car(pic, tmp));
pic_set_cdr(pic, val, pic_cdr(pic, tmp));
return val;
}