From 8d5135682fbc10007ddf1db4fc47fc8b31c017f8 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 20 Oct 2008 21:07:46 -0500
Subject: [PATCH] Print a message when tests fail

---
 basis/tools/test/test.factor | 1 +
 1 file changed, 1 insertion(+)

diff --git a/basis/tools/test/test.factor b/basis/tools/test/test.factor
index d3304bbdb1..5c2bd8f4e3 100644
--- a/basis/tools/test/test.factor
+++ b/basis/tools/test/test.factor
@@ -12,6 +12,7 @@ SYMBOL: failures
     error-continuation get 3array ;
 
 : failure ( error what -- )
+    "--> test failed!" print
     <failure> failures get push ;
 
 SYMBOL: this-test