prettyprint: rename so it doesn't look so much like print-error.

diff --git a/basis/prettyprint/prettyprint.factor b/basis/prettyprint/prettyprint.factor
index 48902f8d0a70d83d6020c9f416733ff92963fca7..6a73536c2ac33e8477bd7ed4e720340e733f63ac 100644 (file)
--- a/basis/prettyprint/prettyprint.factor
+++ b/basis/prettyprint/prettyprint.factor
@@ -35,7 +35,7 @@ IN: prettyprint
 
 : short. ( obj -- ) pprint-short nl ;
 
-: pprint-error ( obj -- str )
+: error-in-pprint ( obj -- str )
     class-of name>> "~pprint error: " "~" surround ;
 
 : .b ( n -- ) >bin print ;
@@ -45,7 +45,7 @@ IN: prettyprint
 : stack. ( seq -- )
     [
         [ short. ] [
-            drop [ pprint-error ] keep write-object nl
+            drop [ error-in-pprint ] keep write-object nl
         ] recover
     ] each ;
 

diff --git a/basis/ui/tools/traceback/traceback.factor b/basis/ui/tools/traceback/traceback.factor
index 06d2fbe719771237e34b1648989a6430dfe79a61..e08a27900615efccbbbbbadf05317e62b5c4d0a3 100644 (file)
--- a/basis/ui/tools/traceback/traceback.factor
+++ b/basis/ui/tools/traceback/traceback.factor
@@ -12,7 +12,7 @@ IN: ui.tools.traceback
 TUPLE: stack-entry object string ;
 
 : <stack-entry> ( object -- stack-entry )
-    dup [ unparse-short ] [ drop pprint-error ] recover
+    dup [ unparse-short ] [ drop error-in-pprint ] recover
     stack-entry boa ;
 
 SINGLETON: stack-entry-renderer