From df8ad0a41c01f84b396d9acba6520e4c7b3568ed Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Sun, 12 Aug 2012 15:22:55 -0700 Subject: [PATCH] edwin: Include TYPE in eg. #[input-event 42 TYPE]. --- src/edwin/editor.scm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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)) -- 2.25.1