~ chicken-core (chicken-5) 6f95a493ff0ad5a6e89ff3dc65d77484fb744261
commit 6f95a493ff0ad5a6e89ff3dc65d77484fb744261
Author: Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Thu Jul 11 13:31:16 2013 +0200
Commit: Peter Bex <peter.bex@xs4all.nl>
CommitDate: Thu Jul 11 13:31:16 2013 +0200
zero is not nul
diff --git a/runtime.c b/runtime.c
index 33e4d111..d8bea057 100644
--- a/runtime.c
+++ b/runtime.c
@@ -7833,7 +7833,7 @@ void C_ccall C_number_to_string(C_word c, C_word closure, C_word k, C_word num,
else if(buffer[ 1 ] != 'i') C_strcat(buffer, C_text(".0")); /* negative infinity? */
}
#ifdef __MINGW32__
- /* On mingw32, gcvt(3) does not add a trailing '\0' */
+ /* On mingw32, gcvt(3) does not add a trailing zero */
else if(buffer[ C_strlen(buffer) - 1 ] == '.')
C_strcat(buffer, C_text("0"));
#endif
Trap