From 8c494e99736a68a24d3004652c6f4aceb16d7ecf Mon Sep 17 00:00:00 2001 From: Dirk Herrmann Date: Fri, 31 Aug 2001 14:42:31 +0000 Subject: * Removed lots of deprecated stuff. --- libguile/simpos.c | 2 -- 1 file changed, 2 deletions(-) (limited to 'libguile/simpos.c') diff --git a/libguile/simpos.c b/libguile/simpos.c index 7f55c07ee..30b95eb8a 100644 --- a/libguile/simpos.c +++ b/libguile/simpos.c @@ -86,7 +86,6 @@ SCM_DEFINE (scm_system, "system", 0, 1, 0, SCM_VALIDATE_STRING (1, cmd); SCM_DEFER_INTS; errno = 0; - SCM_STRING_COERCE_0TERMINATION_X (cmd); rv = system (SCM_STRING_CHARS (cmd)); if (rv == -1 || (rv == 127 && errno != 0)) SCM_SYSERROR; @@ -106,7 +105,6 @@ SCM_DEFINE (scm_getenv, "getenv", 1, 0, 0, { char *val; SCM_VALIDATE_STRING (1, nam); - SCM_STRING_COERCE_0TERMINATION_X (nam); val = getenv (SCM_STRING_CHARS (nam)); return val ? scm_mem2string (val, strlen (val)) : SCM_BOOL_F; } -- cgit v1.2.3