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

register-process-global: fix argument check

Browse Source
This commit is contained in:
Matthew Flatt 2018-01-01 19:15:53 -07:00
parent 9580109901
commit 5e47b23276
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2779,7 +2779,7 @@ static Scheme_Object *unsafe_register_process_global(int argc, Scheme_Object *ar
if (!SCHEME_BYTE_STRINGP(argv[0]))
scheme_wrong_contract("unsafe-register-process-global", "bytes?", 0, argc, argv);
if (!scheme_is_cpointer(argv[0]))
if (!scheme_is_cpointer(argv[1]))
scheme_wrong_contract("unsafe-register-process-global", "cpointer?", 1, argc, argv);
val = scheme_register_process_global(SCHEME_BYTE_STR_VAL(argv[0]),