From e0ca50fd08f161b67595371a988188661eae72e8 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Fri, 20 Aug 2010 02:43:13 +0000 Subject: [PATCH] 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. --- tests/runtime/test-ephemeron.scm | 7 ------- 1 file changed, 7 deletions(-) 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) -- 2.25.1