summaryrefslogtreecommitdiff
path: root/libguile/print.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/print.c')
-rw-r--r--libguile/print.c9
1 files changed, 8 insertions, 1 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.
*/