fix a bug related to immediate symbol value

This commit is contained in:
Yuichi Nishiwaki 2013-10-29 02:33:49 +09:00
parent 9424f0b9c0
commit 4402497a46
1 changed files with 4 additions and 4 deletions

View File

@ -144,19 +144,19 @@ list_data
abbrev abbrev
: tQUOTE datum : tQUOTE datum
{ {
$$ = pic_list(p->pic, 2, p->pic->sQUOTE, $2); $$ = pic_list(p->pic, 2, pic_symbol_value(p->pic->sQUOTE), $2);
} }
| tQUASIQUOTE datum | tQUASIQUOTE datum
{ {
$$ = pic_list(p->pic, 2, p->pic->sQUASIQUOTE, $2); $$ = pic_list(p->pic, 2, pic_symbol_value(p->pic->sQUASIQUOTE), $2);
} }
| tUNQUOTE datum | tUNQUOTE datum
{ {
$$ = pic_list(p->pic, 2, p->pic->sUNQUOTE, $2); $$ = pic_list(p->pic, 2, pic_symbol_value(p->pic->sUNQUOTE), $2);
} }
| tUNQUOTE_SPLICING datum | tUNQUOTE_SPLICING datum
{ {
$$ = pic_list(p->pic, 2, p->pic->sUNQUOTE_SPLICING, $2); $$ = pic_list(p->pic, 2, pic_symbol_value(p->pic->sUNQUOTE_SPLICING), $2);
} }
; ;