From 726e5068f7a52f2f6b5b223a4523d710c3bdadb4 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 23 Nov 2014 23:59:57 -0800
Subject: [PATCH] Revert "tools.test: Print tests homoiconically. There is too
 much spacing still"

This reverts commit 34a197248c07a09c433ed11ebd92418e568016d3.
---
 basis/tools/test/test.factor | 13 ++++---------
 1 file changed, 4 insertions(+), 9 deletions(-)

diff --git a/basis/tools/test/test.factor b/basis/tools/test/test.factor
index f93e6029a2..b559bf3977 100644
--- a/basis/tools/test/test.factor
+++ b/basis/tools/test/test.factor
@@ -76,7 +76,8 @@ M: did-not-fail summary drop "Did not fail" ;
     [ { } quot with-datastack drop did-not-fail-literal t ] [ drop f f ] recover ;
 
 : experiment-title ( word -- string )
-    "(" ?head drop ")" ?tail drop search ;
+    "(" ?head drop ")" ?tail drop
+    H{ { CHAR: - CHAR: \s } } substitute >title ;
 
 MACRO: <experiment> ( word -- )
     [ stack-effect in>> length dup ]
@@ -84,14 +85,8 @@ MACRO: <experiment> ( word -- )
     '[ _ ndup _ narray _ prefix ] ;
 
 : experiment. ( seq -- )
-    [
-        [
-            rest verbose-tests? get
-            [ [ pprint* "" text ] each ]
-            [ [ [ pprint* "" text ] with-short-limits ] each ] if
-        ]
-        [ "" text first pprint-word flush ] bi
-    ] with-pprint nl ;
+    [ first write ": " write ]
+    [ rest verbose-tests? get [ . ] [ short. ] if flush ] bi ;
 
 :: experiment ( word: ( -- error ? ) line# -- )
     word <experiment> :> e