From f08133733acee85551d28d7b8b1c061da39496ba Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Wed, 13 Feb 2013 13:43:16 -0500 Subject: [PATCH] fix error message --- src/racket/src/env.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/racket/src/env.c b/src/racket/src/env.c index be7248c19f..92aad403f0 100644 --- a/src/racket/src/env.c +++ b/src/racket/src/env.c @@ -2162,7 +2162,7 @@ local_make_intdef_context(int argc, Scheme_Object *argv[]) if (argc && SCHEME_TRUEP(argv[0])) { if (!SAME_TYPE(scheme_intdef_context_type, SCHEME_TYPE(argv[0]))) - scheme_wrong_contract("syntax-local-bind-syntaxes", "(or/c internal-definition-context? #f)", 0, argc, argv); + scheme_wrong_contract("syntax-local-make-definition-context", "(or/c internal-definition-context? #f)", 0, argc, argv); senv = (Scheme_Comp_Env *)((void **)SCHEME_PTR1_VAL(argv[0]))[0]; if (!scheme_is_sub_env(senv, env)) { scheme_contract_error("syntax-local-make-definition-context",