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/numbers.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/numbers.c')
-rw-r--r-- | libguile/numbers.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/numbers.c b/libguile/numbers.c index b1e139d01..2c7ebf447 100644 --- a/libguile/numbers.c +++ b/libguile/numbers.c @@ -2188,12 +2188,12 @@ SCM_DEFINE (scm_number_to_string, "number->string", 1, 1, 0, if (SCM_INUMP (n)) { char num_buf [SCM_INTBUFLEN]; size_t length = scm_iint2str (SCM_INUM (n), base, num_buf); - return scm_makfromstr (num_buf, length, 0); + return scm_mem2string (num_buf, length); } else if (SCM_BIGP (n)) { return big2str (n, (unsigned int) base); } else if (SCM_INEXACTP (n)) { char num_buf [FLOBUFLEN]; - return scm_makfromstr (num_buf, iflo2str (n, num_buf), 0); + return scm_mem2string (num_buf, iflo2str (n, num_buf)); } else { SCM_WRONG_TYPE_ARG (1, n); } |