~ 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