* src/lread.c (print_object): Print Scheme objects unreadably, instead
of printing them in Scheme syntax. Thanks to Taylan Ulrich
Bayırlı/Kammer <taylanbayirli@gmail.com> for the report.
SCM port = scm_open_output_string ();
SCM port = scm_open_output_string ();
+ if (SCM_UNLIKELY (!prefix))
+ prefix = scm_from_latin1_string ("#<scheme ");
+ scm_display (prefix, port);
if (escapeflag)
scm_display (obj, port);
else
scm_write (obj, port);
if (escapeflag)
scm_display (obj, port);
else
scm_write (obj, port);
+ scm_display (SCM_MAKE_CHAR ('>'), port);
strout (scm_to_locale_string (scm_get_output_string (port)),
-1, -1, printcharfun);
scm_close_port (port);
strout (scm_to_locale_string (scm_get_output_string (port)),
-1, -1, printcharfun);
scm_close_port (port);