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

avoid compiler warning

Browse Source
This commit is contained in:
Matthew Flatt 2012-05-26 19:44:41 -06:00
parent 58db5f8b46
commit 20179cf0a7
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/racket/src/error.c
View File

@ -2623,6 +2623,7 @@ static Scheme_Object *do_raise_type_error(const char *name, int argc, Scheme_Obj
case 0: wrong = scheme_wrong_type; break;
case 1: wrong = scheme_wrong_contract; break;
case 2: wrong = scheme_wrong_contract; negate = 1; break;
default: wrong = NULL; break;
}
if (argc == 3) {