From 60fb3e06b252532dd492372c3736fa58f8562508 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Mon, 26 Oct 2015 09:12:27 -0400 Subject: [PATCH] Improve set! error messages. --- racket/src/racket/src/compenv.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/racket/src/racket/src/compenv.c b/racket/src/racket/src/compenv.c index 1c239e965a..34eaaae6d9 100644 --- a/racket/src/racket/src/compenv.c +++ b/racket/src/racket/src/compenv.c @@ -1408,7 +1408,8 @@ scheme_compile_lookup(Scheme_Object *find_id, Scheme_Comp_Env *env, int flags, scheme_unbound_syntax(((flags & SCHEME_SETTING) ? scheme_set_stx_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; } 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_set_stx_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; } }