mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-23 04:50:28 +02:00
Code Activity

(scm_i_print_double): New.

Browse source
This commit is contained in:
Marius Vollmer 2004-10-26 16:53:23 +00:00
parent 22417f2f4e
commit b479fe9ae4
2 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/numbers.c
View file

@ -2315,6 +2315,13 @@ scm_print_real (SCM sexp, SCM port, scm_print_state *pstate SCM_UNUSED)
return !0; return !0;
} }
void
scm_i_print_double (double val, SCM port)
{
char num_buf[FLOBUFLEN];
scm_lfwrite (num_buf, idbl2str (val, num_buf, 10), port);
}
int int
scm_print_complex (SCM sexp, SCM port, scm_print_state *pstate SCM_UNUSED) scm_print_complex (SCM sexp, SCM port, scm_print_state *pstate SCM_UNUSED)

3
libguile/numbers.h
View file

@ -282,6 +282,9 @@ SCM_API double scm_i_fraction2double (SCM z);
SCM_API SCM scm_i_fraction_equalp (SCM x, SCM y); SCM_API SCM scm_i_fraction_equalp (SCM x, SCM y);
SCM_API int scm_i_print_fraction (SCM sexp, SCM port, scm_print_state *pstate); SCM_API int scm_i_print_fraction (SCM sexp, SCM port, scm_print_state *pstate);
/* general internal functions */
SCM_API void scm_i_print_double (double val, SCM port);
/* conversion functions for integers */ /* conversion functions for integers */
SCM_API int scm_is_integer (SCM val); SCM_API int scm_is_integer (SCM val);