diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-10-22 13:52:09 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-10-22 13:52:09 +0000 |
commit | a406c9e946be0179bc63106d6ea97bec91c8aaeb (patch) | |
tree | 6d019a0829e67122035a6bf3bf7cf6b9276c5393 /libguile/print.c | |
parent | 2881e77b5a00d8fa397b5c302dd60afd2de49d2d (diff) | |
download | guile-a406c9e946be0179bc63106d6ea97bec91c8aaeb.tar.gz |
(scm_uintprint): New, for printing scm_t_uintmax values.
(scm_intprint): Argument type changed to scm_t_intmax.
Diffstat (limited to 'libguile/print.c')
-rw-r--r-- | libguile/print.c | 9 |
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. */ |