add: scheme_rec_add_certs(rec, drec, form);
context: quote_syntax_syntax(Scheme_Object *form, Scheme_Comp_Env *env, Scheme_Compile_Info *rec, int drec){  int len;  Scheme_Object *stx;  if (rec[drec].comp)    scheme_compile_rec_done_local(rec, drec);  len = check_form(form, form);  if (len != 2)    bad_form(form, len);  stx = SCHEME_STX_CDR(form);  stx = SCHEME_STX_CAR(stx);  /* Push all certificates in the environment down to the syntax object. */  stx = scheme_stx_add_inactive_certs(stx, rec[drec].certs);    if (rec[drec].comp) {    return scheme_register_stx_in_prefix(stx, env, rec, drec);  } else {    Scheme_Object *fn;    fn = SCHEME_STX_CAR(form);    return scheme_datum_to_syntax(icons(fn, icons(stx, scheme_null)),				  form,				  form, 				  0, 2);  }}