From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 28 Sep 2009 02:30:19 +0000 (-0700)
Subject: Fix thinko.
X-Git-Tag: 20100708-Gtk~303
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c1e14eb03bc990e511176d1e65a7c3ce3d676a8c;p=mit-scheme.git

Fix thinko.
---

diff --git a/tests/runtime/test-regsexp.scm b/tests/runtime/test-regsexp.scm
index e1ed9409b..473e280b0 100644
--- a/tests/runtime/test-regsexp.scm
+++ b/tests/runtime/test-regsexp.scm
@@ -36,7 +36,7 @@ USA.
 	(if (and (eq? expected 'PATTERN-ERROR)
 		 (condition-of-type? result condition-type:compile-regsexp))
 	    #f
-	    (signal-condition condition))
+	    (signal-condition result))
 	(assert-equal result
 		      expected
 		      'EXPRESSION `(match-string ',pattern ,string)))))