fix a bug related to immediate symbol value
This commit is contained in:
parent
9424f0b9c0
commit
4402497a46
|
@ -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);
|
||||||
}
|
}
|
||||||
;
|
;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue