From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Thu, 2 Mar 2017 22:47:09 +0000 (-0700)
Subject: x11: Remove reference to deprecated char->string.
X-Git-Tag: mit-scheme-pucked-9.2.12~201^2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=da5f656bb6c79df61dd875594f22367a4c7394c2;p=mit-scheme.git

x11: Remove reference to deprecated char->string.
---

diff --git a/src/x11/x11-base.scm b/src/x11/x11-base.scm
index 884c1f0bd..c7af38ed3 100644
--- a/src/x11/x11-base.scm
+++ b/src/x11/x11-base.scm
@@ -280,7 +280,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 					     (= nbytes 1)
 					     (= (C-> buffer "char")
 						(char->integer #\backspace)))
-					(char->string #\Delete))
+					"\177")
 				       ((> nbytes 0)
 					(let ((bv (make-bytevector nbytes)))
 					  (c-peek-bytes buffer 0 nbytes bv 0)