pic_value pic_list5(pic_state *pic, pic_value obj1, pic_value obj2, pic_value obj3, pic_value obj4, pic_value obj5) { size_t ai = pic_gc_arena_preserve(pic); pic_value val; val = pic_cons(pic, obj1, pic_list4(pic, obj2, obj3, obj4, obj5)); pic_gc_arena_restore(pic, ai); pic_gc_protect(pic, val); return val; }
pic_value pic_values4(pic_state *pic, pic_value arg1, pic_value arg2, pic_value arg3, pic_value arg4) { return pic_values_by_list(pic, pic_list4(pic, arg1, arg2, arg3, arg4)); }