~ 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")); #endifTrap