From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Sun, 12 Aug 2012 22:22:55 +0000 (-0700)
Subject: edwin: Include TYPE in eg. #[input-event 42 TYPE].
X-Git-Tag: mit-scheme-pucked-9.2.12~567
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=df8ad0a41c01f84b396d9acba6520e4c7b3568ed;p=mit-scheme.git

edwin: Include TYPE in eg. #[input-event 42 TYPE].
---

diff --git a/src/edwin/editor.scm b/src/edwin/editor.scm
index f029dd2e6..5d9e02c75 100644
--- a/src/edwin/editor.scm
+++ b/src/edwin/editor.scm
@@ -435,7 +435,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))