From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Wed, 23 Nov 2016 17:45:54 +0000 (-0700)
Subject: x11 (event-name): Rename event-type-name and export (for debugging).
X-Git-Tag: mit-scheme-pucked-9.2.12~252^2~1
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=38c513067b767d91c51760b0aaeffc04f96d1917;p=mit-scheme.git

x11 (event-name): Rename event-type-name and export (for debugging).
---

diff --git a/src/x11/x11-base.scm b/src/x11/x11-base.scm
index 444c6b4d4..f99c0ea60 100644
--- a/src/x11/x11-base.scm
+++ b/src/x11/x11-base.scm
@@ -146,7 +146,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
    ((eq? xtype (C-enum "UnmapNotify")) event-type:unmap)
    (else (warn "Unexpected XEvent.") #f)))
 
-(define (event-name scmtype)
+(define (event-type-name scmtype)
   (let ((sym (C-enum "ScmEventType" scmtype)))
     (if (not sym)
 	"<unknown>"
diff --git a/src/x11/x11.pkg b/src/x11/x11.pkg
index 65fc847cf..a7de8f9bd 100644
--- a/src/x11/x11.pkg
+++ b/src/x11/x11.pkg
@@ -52,6 +52,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 	  x-window-set-event-mask
 	  x-window-or-event-mask
 	  x-window-andc-event-mask
+	  event-type-name
 	  event-type:button-down
 	  event-type:button-up
 	  event-type:configure