Remove unused variable

This commit is contained in:
Kevin Tew 2010-12-01 15:18:13 -07:00
parent 4e451a1b79
commit 7d8c520480

View File

@ -226,7 +226,6 @@ Scheme_Object *scheme_make_sema(long v)
static Scheme_Object *make_sema(int n, Scheme_Object **p)
{
long v;
Scheme_Object *s;
if (n) {
if (!SCHEME_INTP(p[0])) {