summaryrefslogtreecommitdiff
path: root/libguile/simpos.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-09-22 17:17:55 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-09-22 17:17:55 +0000
commit86c991c2a202c1d06caa5f01ec5d36a07a19bb96 (patch)
treede2cbc86a2935e2026ffa9deec7cbd564f0d688d /libguile/simpos.c
parentc1aef037101d36e33de853041e407593cf32a489 (diff)
downloadguile-86c991c2a202c1d06caa5f01ec5d36a07a19bb96.tar.gz
* Replaced SCM_CHARS with SCM_STRING_CHARS or SCM_SYMBOL_CHARS.
Diffstat (limited to 'libguile/simpos.c')
-rw-r--r--libguile/simpos.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/simpos.c b/libguile/simpos.c
index b15d6987e..062853ae8 100644
--- a/libguile/simpos.c
+++ b/libguile/simpos.c
@@ -107,7 +107,7 @@ SCM_DEFINE (scm_getenv, "getenv", 1, 0, 0,
char *val;
SCM_VALIDATE_ROSTRING (1,nam);
nam = scm_makfromstr (SCM_ROCHARS (nam), SCM_ROLENGTH (nam), 0);
- val = getenv(SCM_CHARS(nam));
+ val = getenv (SCM_STRING_CHARS (nam));
return (val) ? scm_makfromstr(val, (scm_sizet)strlen(val), 0) : SCM_BOOL_F;
}
#undef FUNC_NAME