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

fixed scheme_wrong_type call (wrong index)

Browse Source
This commit is contained in:
Ryan Culpepper 2012-02-10 18:21:29 -07:00
parent a5676e9a68
commit 7882dadc3a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/racket/src/env.c
View File

@ -2555,7 +2555,7 @@ static Scheme_Object *
set_transformer_proc(int argc, Scheme_Object *argv[]) set_transformer_proc(int argc, Scheme_Object *argv[])
{ {
if (!scheme_is_set_transformer(argv[0])) 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]); return scheme_set_transformer_proc(argv[0]);
} }