rem: scheme_add_compilation_binding(0, id, naya);
add: scheme_add_compilation_binding(0, *_id, naya);
context: static Scheme_Object *pair_lifted(Scheme_Object *_ip, Scheme_Object *id, Scheme_Object *expr, Scheme_Comp_Env *env){  Scheme_Comp_Env **ip = (Scheme_Comp_Env **)_ip, *naya;  naya = scheme_new_compilation_frame(1, SCHEME_CAPTURE_WITHOUT_RENAME, (*ip)->next, NULL);  (*ip)->next = naya;  *ip = naya;  scheme_add_compilation_binding(0, id, naya);  return icons(id, icons(expr, scheme_null));}