diff options
| author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-08-31 14:42:31 +0000 |
|---|---|---|
| committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-08-31 14:42:31 +0000 |
| commit | 8c494e99736a68a24d3004652c6f4aceb16d7ecf (patch) | |
| tree | de3e7d8e8f642aff57070fd12347af4d89c2a600 /libguile/simpos.c | |
| parent | dee01b012cd5179b70a2e361ee08c364ed9f3314 (diff) | |
| download | guile-8c494e99736a68a24d3004652c6f4aceb16d7ecf.tar.gz | |
* Removed lots of deprecated stuff.
Diffstat (limited to 'libguile/simpos.c')
| -rw-r--r-- | libguile/simpos.c | 2 |
1 files changed, 0 insertions, 2 deletions
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; } |