From 5fdac58a86e83e2d4bd272d7dd4959c3ef2100bd Mon Sep 17 00:00:00 2001
From: Robin Templeton <robin@terpri.org>
Date: Mon, 22 Sep 2014 10:40:59 -0400
Subject: print scheme objects unreadably
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* 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.
---
 src/print.c | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/print.c b/src/print.c
index 05a5dd70ae..a8bad353d0 100644
--- a/src/print.c
+++ b/src/print.c
@@ -2142,11 +2142,16 @@ print_object (Lisp_Object obj, Lisp_Object printcharfun, bool escapeflag)
 
     case Lisp_Other:
       {
+        static SCM prefix;
         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);
+        scm_display (SCM_MAKE_CHAR ('>'), port);
         strout (scm_to_locale_string (scm_get_output_string (port)),
                 -1, -1, printcharfun);
         scm_close_port (port);
-- 
cgit v1.2.3