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

Improve set! error messages.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2015-10-26 09:12:27 -04:00
parent ef6a5c2e75
commit 60fb3e06b2
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/src/racket/src/compenv.c
View File

@ -1408,7 +1408,8 @@ scheme_compile_lookup(Scheme_Object *find_id, Scheme_Comp_Env *env, int flags,
scheme_unbound_syntax(((flags & SCHEME_SETTING) scheme_unbound_syntax(((flags & SCHEME_SETTING)
? scheme_set_stx_string ? scheme_set_stx_string
: scheme_var_ref_string), : scheme_var_ref_string),
NULL, src_find_id, "unbound identifier in module"); NULL, src_find_id, "unbound identifier in module",
scheme_stx_describe_context(src_find_id, scheme_env_phase(genv), 0));
return NULL; return NULL;
} }
if (flags & SCHEME_NULL_FOR_UNBOUND) if (flags & SCHEME_NULL_FOR_UNBOUND)
@ -1494,7 +1495,8 @@ scheme_compile_lookup(Scheme_Object *find_id, Scheme_Comp_Env *env, int flags,
scheme_unbound_syntax(((flags & SCHEME_SETTING) scheme_unbound_syntax(((flags & SCHEME_SETTING)
? scheme_set_stx_string ? scheme_set_stx_string
: scheme_var_ref_string), : scheme_var_ref_string),
NULL, src_find_id, "unbound identifier in module"); NULL, src_find_id, "unbound identifier in module",
scheme_stx_describe_context(src_find_id, scheme_env_phase(genv), 0));
return NULL; return NULL;
} }
} }