From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Tue, 7 Mar 2017 03:43:56 +0000 (-0700)
Subject: edwin: Add input-event unparser.  Fix inferior unparser.
X-Git-Tag: mit-scheme-pucked-9.2.12~195^2~4
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1df9423094fb9a8dd50173f4efb16f49fd74a3a0;p=mit-scheme.git

edwin: Add input-event unparser.  Fix inferior unparser.
---

diff --git a/src/edwin/editor.scm b/src/edwin/editor.scm
index ef6772a98..e74655e9c 100644
--- a/src/edwin/editor.scm
+++ b/src/edwin/editor.scm
@@ -440,7 +440,13 @@ TRANSCRIPT    messages appear in transcript buffer, if it is enabled;
 
 (define-structure (input-event
 		   (constructor make-input-event (type operator . operands))
-		   (conc-name input-event/))
+		   (conc-name input-event/)
+		   (print-procedure
+		    (standard-unparser-method
+		     'input-event
+		     (lambda (event port)
+		       (write-char #\space port)
+		       (write (input-event/type event) port)))))
   (type #f read-only #t)
   (operator #f read-only #t)
   (operands #f read-only #t))
diff --git a/src/edwin/window.scm b/src/edwin/window.scm
index be16a8281..b5dfb8701 100644
--- a/src/edwin/window.scm
+++ b/src/edwin/window.scm
@@ -366,6 +366,7 @@ USA.
 (unparser/set-tagged-vector-method! %inferior-tag
   (standard-unparser-method 'INFERIOR
     (lambda (inferior port)
+      (write-string " " port)
       (write (inferior-window inferior) port)
       (write-string " x,y=(" port)
       (write (inferior-x-start inferior) port)