[MIT-Scheme-users] Edwin problem using X terminal

[Chris Hanson]

Hi Scott,

Please apply the following patch to the microcode sources
(mit-scheme-7.7.1-src-ucode.tar.gz) and rebuild for FreeBSD.
Follow the instructions at

    http://www.gnu.org/software/mit-scheme/other-unix.html

Please let me know the outcome.

Chris


--- x11base.c-7.7.1     2005-02-04 09:05:11.000000000 -0500
+++ x11base.c-7.7.1-new 2005-02-04 09:06:29.000000000 -0500
@@ -947,11 +947,11 @@
   long bucky = 0;
   if (state & Mod1Mask)    bucky |= 0x0001; /* meta */
   if (state & ControlMask) bucky |= 0x0002; /* control */
-  if (state & Mod2Mask)    bucky |= 0x0004; /* super */
-  if (state & Mod3Mask)    bucky |= 0x0008; /* hyper */
-  if (state & Mod4Mask)    bucky |= 0x0010; /* top */
   if (allp)
     {
+      if (state & Mod2Mask)    bucky |= 0x0004; /* super */
+      if (state & Mod3Mask)    bucky |= 0x0008; /* hyper */
+      if (state & Mod4Mask)    bucky |= 0x0010; /* top */
       if (state & ShiftMask)   bucky |= 0x0020;
       if (state & LockMask)    bucky |= 0x0040;
       if (state & Mod2Mask)    bucky |= 0x0080;