~ chicken-core (chicken-5) d0110a8bd1d68f5e0c14298d0312f434df1eb809

commit d0110a8bd1d68f5e0c14298d0312f434df1eb809
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Wed Mar 1 23:05:11 2017 +1300
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Sat Mar 4 16:27:35 2017 +0100

    Fix procedure name in errors on bad string arguments to `system`
    
    When `system` is called with a string containing null bytes, the
    resulting error should use "system" as its location, not
    "get-environment-variables".
    
    Signed-off-by: Peter Bex <peter@more-magic.net>

diff --git a/runtime.c b/runtime.c
index 4d80a9ec..946a2f75 100644
--- a/runtime.c
+++ b/runtime.c
@@ -4413,7 +4413,7 @@ C_regparm C_word C_fcall C_execute_shell_command(C_word string)
   C_memcpy(buf, C_data_pointer(string), n);
   buf[ n ] = '\0';
   if (n != strlen(buf))
-    barf(C_ASCIIZ_REPRESENTATION_ERROR, "get-environment-variable", string);
+    barf(C_ASCIIZ_REPRESENTATION_ERROR, "system", string);
 
   n = C_system(buf);