From: Taylor R Campbell <campbell@mumble.net>
Date: Thu, 5 Nov 2009 03:39:38 +0000 (-0500)
Subject: Simplify gcloop.c's tospace_open.
X-Git-Tag: 20100708-Gtk~257^2~3
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d9a39924ae7154c0122c901f5ad5c453938fab44;p=mit-scheme.git

Simplify gcloop.c's tospace_open.

This need not have a conditional; it is called only when the
condition is true, to report the error.  This may not have been the
source, but Gerry observed GCC stumble into an internal compiler
error while compiling this procedure!
---

diff --git a/src/microcode/gcloop.c b/src/microcode/gcloop.c
index d402fe451..1791986f7 100644
--- a/src/microcode/gcloop.c
+++ b/src/microcode/gcloop.c
@@ -876,8 +876,7 @@ tospace_closed (void)
 static void
 tospace_open (void)
 {
-  if (tospace_next != 0)
-    std_gc_death ("tospace is open, should be closed");
+  std_gc_death ("tospace is open, should be closed");
 }
 
 void