summaryrefslogtreecommitdiff
path: root/libguile/numbers.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/numbers.c')
-rw-r--r--libguile/numbers.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/numbers.c b/libguile/numbers.c
index d3ed2b770..e5a69e96e 100644
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995,1996 Free Software Foundation, Inc.
+/* Copyright (C) 1995,1996, 1997 Free Software Foundation, Inc.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@@ -1441,7 +1441,7 @@ scm_floprint(sexp, port, pstate)
{
#ifdef SCM_FLOATS
char num_buf[SCM_FLOBUFLEN];
- scm_gen_write (scm_regular_string, num_buf, iflo2str(sexp, num_buf), port);
+ scm_lfwrite (num_buf, iflo2str(sexp, num_buf), port);
#else
scm_ipruk("float", sexp, port);
#endif
@@ -1458,7 +1458,7 @@ scm_bigprint(exp, port, pstate)
{
#ifdef SCM_BIGDIG
exp = big2str(exp, (unsigned int)10);
- scm_gen_write (scm_regular_string, SCM_CHARS(exp), (scm_sizet)SCM_LENGTH(exp), port);
+ scm_lfwrite (SCM_CHARS(exp), (scm_sizet)SCM_LENGTH(exp), port);
#else
scm_ipruk("bignum", exp, port);
#endif