From 5e47b232768289c04a5532932be80d48cb45e540 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 1 Jan 2018 19:15:53 -0700 Subject: [PATCH] register-process-global: fix argument check --- racket/src/racket/src/thread.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/src/racket/src/thread.c b/racket/src/racket/src/thread.c index 0f2f13ff57..cce67571b9 100644 --- a/racket/src/racket/src/thread.c +++ b/racket/src/racket/src/thread.c @@ -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]),