[Guile-commits] 35/85: Simplify scm_bigprint

[Andy Wingo]

wingo pushed a commit to branch main
in repository guile.

commit 24ce3cedfc286c3cc793d41ed557df8c449363e9
Author: Andy Wingo <wingo@pobox.com>
AuthorDate: Tue Jan 4 11:20:22 2022 +0100

    Simplify scm_bigprint
    
    * libguile/numbers.c (scm_bigprint): Just convert the number to a string
    and write that.  Adds a copy but if we optimize scm_integer_to_string_z
    then that will be fixed.
---
 libguile/numbers.c | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/libguile/numbers.c b/libguile/numbers.c
index 1b6d29efa..51e5ee19a 100644
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -3820,13 +3820,8 @@ scm_i_print_fraction (SCM sexp, SCM port, 
scm_print_state *pstate SCM_UNUSED)
 int
 scm_bigprint (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
 {
-  char *str = mpz_get_str (NULL, 10, SCM_I_BIG_MPZ (exp));
-  size_t len = strlen (str);
-  void (*freefunc) (void *, size_t);
-  mp_get_memory_functions (NULL, NULL, &freefunc);
-  scm_remember_upto_here_1 (exp);
-  scm_lfwrite (str, len, port);
-  freefunc (str, len + 1);
+  SCM str = scm_integer_to_string_z (scm_bignum (exp), 10);
+  scm_c_put_string (port, str, 0, scm_c_string_length (str));
   return !0;
 }
 /*** END nums->strs ***/