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
scm_print_complex (SCM sexp, SCM port, scm_print_state *pstate SCM_UNUSED)
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);
+/* general internal functions */
+SCM_API void scm_i_print_double (double val, SCM port);
+
/* conversion functions for integers */
SCM_API int scm_is_integer (SCM val);