From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Sun, 26 Feb 2017 02:36:32 +0000 (-0700)
Subject: gtk-screen: Remove references to deprecated bindings.
X-Git-Tag: mit-scheme-pucked-9.2.12~209
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=18f4962bf426f88d742e2458bdd99f774f86d6e3;p=mit-scheme.git

gtk-screen: Remove references to deprecated bindings.
---

diff --git a/src/gtk-screen/gtk-screen.scm b/src/gtk-screen/gtk-screen.scm
index 4b38376e8..1d8d6f1de 100644
--- a/src/gtk-screen/gtk-screen.scm
+++ b/src/gtk-screen/gtk-screen.scm
@@ -781,7 +781,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 		|Super_L| |Super_R| |Hyper_L| |Hyper_R|)
 	       #f)
 	      (else (if (symbol? key)
-			(intern (symbol-name key))
+			(intern (symbol->string key))
 			key)))))
     (if (char? k)
 	(if (char=? k #\BEL)