diff options
Diffstat (limited to 'libguile/simpos.c')
| -rw-r--r-- | libguile/simpos.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/simpos.c b/libguile/simpos.c index a03ec6c30..cfc1c9e41 100644 --- a/libguile/simpos.c +++ b/libguile/simpos.c @@ -110,7 +110,7 @@ SCM_DEFINE (scm_getenv, "getenv", 1, 0, 0, SCM_VALIDATE_STRING (1, nam); SCM_STRING_COERCE_0TERMINATION_X (nam); val = getenv (SCM_STRING_CHARS (nam)); - return (val) ? scm_makfromstr(val, (scm_sizet)strlen(val), 0) : SCM_BOOL_F; + return (val) ? scm_makfromstr(val, (size_t)strlen(val), 0) : SCM_BOOL_F; } #undef FUNC_NAME |