From 216a1234c26d793488bb5a2c397c830b825f8da2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Thu, 17 Dec 2015 23:49:57 +0100
Subject: [PATCH] tools.test: makes <test-failure> public

---
 basis/tools/test/test.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/tools/test/test.factor b/basis/tools/test/test.factor
index 9f9c84dfe0..b8b148729a 100644
--- a/basis/tools/test/test.factor
+++ b/basis/tools/test/test.factor
@@ -31,9 +31,7 @@ T{ error-type-holder
 SYMBOL: verbose-tests?
 t verbose-tests? set-global
 
-<PRIVATE
-
-: <test-failure> ( error experiment file line# -- triple )
+: <test-failure> ( error experiment file line# -- test-failure )
     test-failure new
         swap >>line#
         swap >>path
@@ -41,6 +39,8 @@ t verbose-tests? set-global
         swap >>error
         error-continuation get >>continuation ;
 
+<PRIVATE
+
 : failure ( error experiment file line# -- )
     "--> test failed!" print
     <test-failure> test-failures get push