-rwxr-xr-x | gcl/o/num_arith.c | 2 |
diff --git a/gcl/o/num_arith.c b/gcl/o/num_arith.c index 16739849c..dbdb3b056 100755 --- a/gcl/o/num_arith.c +++ b/gcl/o/num_arith.c @@ -542,7 +542,7 @@ one_minus(object x) object number_negate(object x) { - object z, z1; + object z; switch (type_of(x)) { |