[Guile-commits] 36/69: Simplify scm_bigprint

[Andy Wingo]

wingo pushed a commit to branch wip-inline-digits
in repository guile.

commit 24fad71be059c9aabbf94ebe89929b983e736265
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 ***/