From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Wed, 23 Jan 2019 20:44:17 +0000 (-0700)
Subject: x11: Rename device type to "x".
X-Git-Tag: mit-scheme-pucked-10.1.10~6^2~29
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=63d7afa5222d1b0bd6cb79e20ec0738287ceb9f0;p=mit-scheme.git

x11: Rename device type to "x".
---

diff --git a/src/x11/x11-device.scm b/src/x11/x11-device.scm
index bf5f89241..20ed526e9 100644
--- a/src/x11/x11-device.scm
+++ b/src/x11/x11-device.scm
@@ -48,7 +48,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 (define (initialize-package!)
   (set! x-graphics-device-type
 	(make-graphics-device-type
-	 'x11
+	 'x
 	 `((available? ,x-graphics/available?)
 	   (clear ,x-graphics/clear)
 	   (close ,x-graphics/close-window)