From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Sat, 11 Jul 2015 20:59:16 +0000 (-0700)
Subject: Fix the mask for the GC interrupt.
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cc567c1a4babc04f789bea7a6e80826d34df1b0a;p=mit-scheme.git

Fix the mask for the GC interrupt.
---

diff --git a/src/runtime/intrpt.scm b/src/runtime/intrpt.scm
index 1fd45dd93..ef0f93f63 100644
--- a/src/runtime/intrpt.scm
+++ b/src/runtime/intrpt.scm
@@ -236,8 +236,7 @@ USA.
 		     interrupt-mask/none)
 
 	(vector-set! interrupt-mask-vector gc-slot
-		     ;; interrupt-mask/none
-		     (fix:lsh 1 global-gc-slot))
+		     interrupt-mask/none)
 
 	(vector-set! system-interrupt-vector timer-slot
 		     timer-interrupt-handler)