From c1e14eb03bc990e511176d1e65a7c3ce3d676a8c Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 27 Sep 2009 19:30:19 -0700
Subject: [PATCH] Fix thinko.

---
 tests/runtime/test-regsexp.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)))))
-- 
2.25.1