Fix the mask for the GC interrupt.

diff --git a/src/runtime/intrpt.scm b/src/runtime/intrpt.scm
index 1fd45dd93b73add915474aa5610048786d3d8832..ef0f93f63c0f023071f52f528008e9b945697e04 100644 (file)
--- 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)