~ chicken-core (chicken-5) 19ff7930fd096bbb61e417495eeca7c09ae5f612
commit 19ff7930fd096bbb61e417495eeca7c09ae5f612 Author: Peter Bex <peter@more-magic.net> AuthorDate: Sat Jul 4 14:39:44 2015 +0200 Commit: Peter Bex <peter@more-magic.net> CommitDate: Sat Jul 4 14:39:44 2015 +0200 Remove unused variable, change misleading comment diff --git a/runtime.c b/runtime.c index 036107c6..4696dd3d 100644 --- a/runtime.c +++ b/runtime.c @@ -11228,11 +11228,11 @@ C_integer_to_string(C_word c, C_word self, C_word k, C_word num, C_word radix) try_extended_number("\003sysinteger->string/recursive", 4, k, num, radix, C_fix(len)); } else { - C_word k2, negp = C_mk_bool(C_bignum_negativep(num)), *ka; + C_word k2, *ka; ka = C_alloc(C_SIZEOF_CLOSURE(4)); k2 = C_closure(&ka, 4, (C_word)bignum_to_str_2, k, num, radix); C_allocate_vector(6, (C_word)NULL, k2, C_fix(len), - /* Byte vec, no initialization, align at 8 bytes */ + /* Byte vec, no initialization, no align at 8 bytes */ C_SCHEME_TRUE, C_SCHEME_FALSE, C_SCHEME_FALSE); } }Trap