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

s/slotname/slot/g

This commit is contained in:
Yuichi Nishiwaki 2014-08-06 11:26:35 +09:00
parent 1a7df924ab
commit bac96b2e54
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/record.c
View File

@ -26,24 +26,24 @@ pic_record_of(pic_state *pic, struct pic_record *rec, pic_value rectype)
}
pic_value
pic_record_ref(pic_state *pic, struct pic_record *rec, pic_sym slotname)
pic_record_ref(pic_state *pic, struct pic_record *rec, pic_sym slot)
{
xh_entry *e;
e = xh_get_int(&rec->hash, slotname);
e = xh_get_int(&rec->hash, slot);
if (! e) {
pic_errorf(pic, "slot named ~s is not found for record: ~s", pic_sym_value(slotname), rec);
pic_errorf(pic, "slot named ~s is not found for record: ~s", pic_sym_value(slot), rec);
}
return xh_val(e, pic_value);
}
void
pic_record_set(pic_state *pic, struct pic_record *rec, pic_sym slotname, pic_value val)
pic_record_set(pic_state *pic, struct pic_record *rec, pic_sym slot, pic_value val)
{
UNUSED(pic);
xh_put_int(&rec->hash, slotname, &val);
xh_put_int(&rec->hash, slot, &val);
}
static pic_value
@ -84,23 +84,23 @@ static pic_value
pic_record_record_ref(pic_state *pic)
{
struct pic_record *rec;
pic_sym slotname;
pic_sym slot;
pic_get_args(pic, "rm", &rec, &slotname);
pic_get_args(pic, "rm", &rec, &slot);
return pic_record_ref(pic, rec, slotname);
return pic_record_ref(pic, rec, slot);
}
static pic_value
pic_record_record_set(pic_state *pic)
{
struct pic_record *rec;
pic_sym slotname;
pic_sym slot;
pic_value val;
pic_get_args(pic, "rmo", &rec, &slotname, &val);
pic_get_args(pic, "rmo", &rec, &slot, &val);
pic_record_set(pic, rec, slotname, val);
pic_record_set(pic, rec, slot, val);
return pic_none_value();
}