summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-10-22 13:52:09 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-10-22 13:52:09 +0000
commita406c9e946be0179bc63106d6ea97bec91c8aaeb (patch)
tree6d019a0829e67122035a6bf3bf7cf6b9276c5393
parent2881e77b5a00d8fa397b5c302dd60afd2de49d2d (diff)
downloadguile-a406c9e946be0179bc63106d6ea97bec91c8aaeb.tar.gz
(scm_uintprint): New, for printing scm_t_uintmax values.
(scm_intprint): Argument type changed to scm_t_intmax.
-rw-r--r--libguile/print.c9
-rw-r--r--libguile/print.h3
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);