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

diff --git a/src/edwin/editor.scm b/src/edwin/editor.scm
index f029dd2e6dfdd864e0cad7f02eee059e16dc2a60..5d9e02c75b1f91484c3d2ac6e14e87e6322ed0ac 100644 (file)
--- 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))