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

Fix serious clang warnings

Browse Source
This commit is contained in:
Kevin Tew 2011-08-26 14:01:28 -06:00
parent 005923c284
commit 801e5dbe0e
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/racket/src/module.c
View File

@ -3921,7 +3921,7 @@ void scheme_module_force_lazy(Scheme_Env *env, int previous)
static int wait_registry(Scheme_Env *env) static int wait_registry(Scheme_Env *env)
{ {
Scheme_Object *lock, *a[1]; Scheme_Object *lock, *a[2];
while (1) { while (1) {
lock = scheme_hash_get(env->module_registry->loaded, scheme_false); lock = scheme_hash_get(env->module_registry->loaded, scheme_false);
@ -3933,7 +3933,7 @@ static int wait_registry(Scheme_Env *env)
a[0] = SCHEME_CAR(lock); a[0] = SCHEME_CAR(lock);
a[1] = SCHEME_CDR(lock); a[1] = SCHEME_CDR(lock);
(void)scheme_sync(1, a); (void)scheme_sync(2, a);
} }
} }

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

@ -8096,7 +8096,7 @@ Scheme_Object *scheme_syntax_make_transfer_intro(int argc, Scheme_Object **argv)
if (scheme_stx_is_clean(argv[0])) if (scheme_stx_is_clean(argv[0]))
a[1] = scheme_false; a[1] = scheme_false;
else else
a[2] = scheme_true; a[1] = scheme_true;
return scheme_make_prim_closure_w_arity(delta_introducer, 2, a, "delta-introducer", 1, 1); return scheme_make_prim_closure_w_arity(delta_introducer, 2, a, "delta-introducer", 1, 1);
} }