suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix certification in syntax-local-make-delta-introducer

Browse Source 
svn: r13960
This commit is contained in:
Matthew Flatt 2009-03-04 20:49:42 +00:00
parent b948caaa92
commit cf66f23dc8
2 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/mzscheme/src/env.c
View File

@ -4592,6 +4592,7 @@ local_make_delta_introduce(int argc, Scheme_Object *argv[])
Scheme_Object *introducers = scheme_null, *mappers = scheme_null; Scheme_Object *introducers = scheme_null, *mappers = scheme_null;
int renamed = 0; int renamed = 0;
Scheme_Comp_Env *env; Scheme_Comp_Env *env;
Scheme_Object *certs;
env = scheme_current_thread->current_local_env; env = scheme_current_thread->current_local_env;
if (!env) if (!env)
@ -4605,6 +4606,8 @@ local_make_delta_introduce(int argc, Scheme_Object *argv[])
sym = scheme_stx_activate_certs(sym); sym = scheme_stx_activate_certs(sym);
certs = scheme_current_thread->current_local_certs;
while (1) { while (1) {
binder = NULL; binder = NULL;
@ -4613,7 +4616,7 @@ local_make_delta_introduce(int argc, Scheme_Object *argv[])
+ SCHEME_RESOLVE_MODIDS + SCHEME_RESOLVE_MODIDS
+ SCHEME_APP_POS + SCHEME_ENV_CONSTANTS_OK + SCHEME_APP_POS + SCHEME_ENV_CONSTANTS_OK
+ SCHEME_OUT_OF_CONTEXT_OK + SCHEME_ELIM_CONST), + SCHEME_OUT_OF_CONTEXT_OK + SCHEME_ELIM_CONST),
scheme_current_thread->current_local_certs, certs,
scheme_current_thread->current_local_modidx, scheme_current_thread->current_local_modidx,
NULL, NULL, &binder); NULL, NULL, &binder);
@ -4642,7 +4645,10 @@ local_make_delta_introduce(int argc, Scheme_Object *argv[])
v = SCHEME_PTR_VAL(v); v = SCHEME_PTR_VAL(v);
if (SAME_TYPE(SCHEME_TYPE(v), scheme_id_macro_type)) { if (SAME_TYPE(SCHEME_TYPE(v), scheme_id_macro_type)) {
certs = scheme_stx_extract_certs(sym, certs);
sym = SCHEME_PTR1_VAL(v); sym = SCHEME_PTR1_VAL(v);
sym = scheme_stx_activate_certs(sym);
v = SCHEME_PTR2_VAL(v); v = SCHEME_PTR2_VAL(v);
if (!SCHEME_FALSEP(v)) if (!SCHEME_FALSEP(v))

6
src/mzscheme/src/fun.c
View File

@ -2517,6 +2517,12 @@ cert_with_specials(Scheme_Object *code, Scheme_Object *mark, Scheme_Env *menv,
/* Default transparency depends on module-identifier=? comparison /* Default transparency depends on module-identifier=? comparison
to `begin', `define-values', and `define-syntaxes'. */ to `begin', `define-values', and `define-syntaxes'. */
int trans = deflt; int trans = deflt;
if (SCHEME_TRUEP(prop))
scheme_log(NULL,
SCHEME_LOG_WARNING,
0,
"warning: unrecognized 'certify-mode property value: %V",
prop);
if (SCHEME_STX_PAIRP(code)) { if (SCHEME_STX_PAIRP(code)) {
Scheme_Object *name; Scheme_Object *name;
name = SCHEME_STX_CAR(code); name = SCHEME_STX_CAR(code);