From 5452a164796bdd23aa2fd766fc9b3b10defc30cb Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 8 Jul 2011 21:40:28 -0600 Subject: [PATCH] fix arity check on `current-module-name-resolver' --- src/racket/src/module.c | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/racket/src/module.c b/src/racket/src/module.c index 0a43fe5301..41b55daa05 100644 --- a/src/racket/src/module.c +++ b/src/racket/src/module.c @@ -824,11 +824,10 @@ static Scheme_Object *default_module_resolver(int argc, Scheme_Object **argv) static Scheme_Object *check_resolver(int argc, Scheme_Object **argv) { if (scheme_check_proc_arity(NULL, 1, 0, argc, argv) - && scheme_check_proc_arity(NULL, 3, 0, argc, argv) && scheme_check_proc_arity(NULL, 4, 0, argc, argv)) return argv[0]; - scheme_wrong_type("current-module-name-resolver", "procedure of arity 1, 3, and 4", 0, argc, argv); + scheme_wrong_type("current-module-name-resolver", "procedure of arity 1 and 4", 0, argc, argv); return NULL; } @@ -839,7 +838,7 @@ current_module_name_resolver(int argc, Scheme_Object *argv[]) return scheme_param_config("current-module-name-resolver", scheme_make_integer(MZCONFIG_CURRENT_MODULE_RESOLVER), argc, argv, - -1, check_resolver, "procedure of arity 1, 3, and 4", 1); + -1, check_resolver, "procedure of arity 1 and 4", 1); } static Scheme_Object *prefix_p(int argc, Scheme_Object **argv)