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

fix missing 2 arg case of sch_default_global_port_print_handler

Browse Source
This commit is contained in:
Kevin Tew 2010-04-27 14:22:51 -06:00
parent 1fedf04739
commit f4b07e9640
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/racket/src/portfun.c
View File

@ -3701,7 +3701,12 @@ static Scheme_Object *sch_default_global_port_print_handler(int argc, Scheme_Obj
scheme_wrong_type("default-global-port-print-handler", "non-negative exact integer", scheme_wrong_type("default-global-port-print-handler", "non-negative exact integer",
2, argc, argv); 2, argc, argv);
if (argc == 2) {
scheme_internal_print(argv[0], argv[1], scheme_make_integer(0));
}
else {
scheme_internal_print(argv[0], argv[1], argv[2]); scheme_internal_print(argv[0], argv[1], argv[2]);
}
return scheme_void; return scheme_void;
} }