From 7882dadc3a4742895159c493696f9e5638276536 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Fri, 10 Feb 2012 18:21:29 -0700 Subject: [PATCH] fixed scheme_wrong_type call (wrong index) --- 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 9c976b5d2f..0469f0e2bf 100644 --- a/src/racket/src/env.c +++ b/src/racket/src/env.c @@ -2555,7 +2555,7 @@ static Scheme_Object * set_transformer_proc(int argc, Scheme_Object *argv[]) { if (!scheme_is_set_transformer(argv[0])) - scheme_wrong_type("set!-transformer-procedure", "set!-transformer", 1, argc, argv); + scheme_wrong_type("set!-transformer-procedure", "set!-transformer", 0, argc, argv); return scheme_set_transformer_proc(argv[0]); }