diff options
| author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-06-26 10:59:34 +0000 |
|---|---|---|
| committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-06-26 10:59:34 +0000 |
| commit | 36284627919a6968174b5f17369349187a2b4b1b (patch) | |
| tree | 216f50e019e44f18a0d96769c0db47775e26b6f0 /libguile/simpos.c | |
| parent | fbcd68abe9c55fdaa762246a84f3324f11f1b0f8 (diff) | |
| download | guile-36284627919a6968174b5f17369349187a2b4b1b.tar.gz | |
* Deprecated scm_makfromstr and added scm_mem2string as a replacement.
* Eliminated some potential gc problems.
* Eliminated some signedness problems.
* Minor changes.
Diffstat (limited to 'libguile/simpos.c')
| -rw-r--r-- | libguile/simpos.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/simpos.c b/libguile/simpos.c index cfc1c9e41..882088b40 100644 --- a/libguile/simpos.c +++ b/libguile/simpos.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1997,1998, 2000, 2001 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,1997,1998,2000,2001 Free Software Foundation, Inc. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by @@ -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, (size_t)strlen(val), 0) : SCM_BOOL_F; + return val ? scm_mem2string (val, strlen (val)) : SCM_BOOL_F; } #undef FUNC_NAME |