prettyprint.sections: better pprint-error.

diff --git a/basis/prettyprint/sections/sections.factor b/basis/prettyprint/sections/sections.factor
index 2dac1baa368e073c98a217eb44e01ee5a72de72a..0bf4227f1c80da0967a6a4f7eac3441f0484da5a 100644 (file)
--- a/basis/prettyprint/sections/sections.factor
+++ b/basis/prettyprint/sections/sections.factor
@@ -372,5 +372,6 @@ M: block long-section
     <flow class-of name>> "~pprint error: " "~" surround text block> ;
 
 : with-pprint ( obj quot -- )
-    '[ _ [ drop error-in-pprint ] recover ]
-    f make-pprint drop do-pprint ; inline
+    '[ _ f make-pprint ]
+    [ drop [ error-in-pprint ] f make-pprint ] recover
+    drop do-pprint ; inline