From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 20 Aug 2010 02:43:13 +0000 (+0000)
Subject: Omit needless definition of REFERENCE-BARRIER in test-ephemeron.scm.
X-Git-Tag: 20101212-Gtk~91
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e0ca50fd08f161b67595371a988188661eae72e8;p=mit-scheme.git

Omit needless definition of REFERENCE-BARRIER in test-ephemeron.scm.

Due to a bug in the microcode's environment operations, this
definition, which should be harmless, actually renders the tests
unrunnable because it makes REFERENCE-BARRIER spin in an infinite
loop.
---

diff --git a/tests/runtime/test-ephemeron.scm b/tests/runtime/test-ephemeron.scm
index b396c3ba7..dcd7cb42a 100644
--- a/tests/runtime/test-ephemeron.scm
+++ b/tests/runtime/test-ephemeron.scm
@@ -29,13 +29,6 @@ USA.
 
 ;;;; Utilities
 
-;;; REFERENCE-BARRIER guarantees that OBJECT will be considered live at
-;;; least until the call to REFERENCE-BARRIER, by forcing the compiler
-;;; to assume that it passes out.
-
-(define (reference-barrier object)
-  (identity-procedure object))
-
 (define (assert-unbroken ephemeron key datum)
   (assert-equal (ephemeron-key ephemeron) key)
   (assert-equal (ephemeron-datum ephemeron) datum)