fix dictionary conviersion procedures
This commit is contained in:
parent
9fc8ccb641
commit
df13e35044
|
@ -256,7 +256,7 @@ pic_dict_dictionary_to_alist(pic_state *pic)
|
||||||
pic_push(pic, item, alist);
|
pic_push(pic, item, alist);
|
||||||
}
|
}
|
||||||
|
|
||||||
return pic_reverse(pic, alist);
|
return alist;
|
||||||
}
|
}
|
||||||
|
|
||||||
static pic_value
|
static pic_value
|
||||||
|
@ -288,11 +288,11 @@ pic_dict_dictionary_to_plist(pic_state *pic)
|
||||||
pic_get_args(pic, "d", &dict);
|
pic_get_args(pic, "d", &dict);
|
||||||
|
|
||||||
pic_dict_for_each (sym, dict, it) {
|
pic_dict_for_each (sym, dict, it) {
|
||||||
pic_push(pic, pic_obj_value(sym), plist);
|
|
||||||
pic_push(pic, pic_dict_ref(pic, dict, sym), plist);
|
pic_push(pic, pic_dict_ref(pic, dict, sym), plist);
|
||||||
|
pic_push(pic, pic_obj_value(sym), plist);
|
||||||
}
|
}
|
||||||
|
|
||||||
return pic_reverse(pic, plist);
|
return plist;
|
||||||
}
|
}
|
||||||
|
|
||||||
static pic_value
|
static pic_value
|
||||||
|
|
Loading…
Reference in New Issue