diff options
-rw-r--r-- | libguile/print.c | 9 | ||||
-rw-r--r-- | libguile/print.h | 3 |
2 files changed, 10 insertions, 2 deletions
diff --git a/libguile/print.c b/libguile/print.c index 277a34786..1d1332613 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -741,12 +741,19 @@ scm_prin1 (SCM exp, SCM port, int writingp) */ void -scm_intprint (long n, int radix, SCM port) +scm_intprint (scm_t_intmax n, int radix, SCM port) { char num_buf[SCM_INTBUFLEN]; scm_lfwrite (num_buf, scm_iint2str (n, radix, num_buf), port); } +void +scm_uintprint (scm_t_uintmax n, int radix, SCM port) +{ + char num_buf[SCM_INTBUFLEN]; + scm_lfwrite (num_buf, scm_iuint2str (n, radix, num_buf), port); +} + /* Print an object of unrecognized type. */ diff --git a/libguile/print.h b/libguile/print.h index 8740fdcf0..21d1055bf 100644 --- a/libguile/print.h +++ b/libguile/print.h @@ -83,7 +83,8 @@ SCM_API SCM scm_print_options (SCM setting); SCM_API SCM scm_make_print_state (void); SCM_API void scm_free_print_state (SCM print_state); SCM scm_i_port_with_print_state (SCM port, SCM print_state); -SCM_API void scm_intprint (long n, int radix, SCM port); +SCM_API void scm_intprint (scm_t_intmax n, int radix, SCM port); +SCM_API void scm_uintprint (scm_t_uintmax n, int radix, SCM port); SCM_API void scm_ipruk (char *hdr, SCM ptr, SCM port); SCM_API void scm_iprlist (char *hdr, SCM exp, int tlr, SCM port, scm_print_state *pstate); SCM_API void scm_print_symbol_name (const char *str, size_t len, SCM port); |