prettyprint: easier to read callstacks.

Don't print Word:, Method:, and Quotation: prefixes.

diff --git a/basis/prettyprint/prettyprint.factor b/basis/prettyprint/prettyprint.factor
index 46b3df664119c6c3cecb34014abb9e9139b5fc38..98ecc779a1e1a48cce0e3e723144f96b8dc272ce 100644 (file)
--- a/basis/prettyprint/prettyprint.factor
+++ b/basis/prettyprint/prettyprint.factor
@@ -84,11 +84,7 @@ SYMBOL: =>
     first word? ;
 
 : frame-word. ( triple -- )
-    first {
-        { [ dup method? ] [ "Method: " write pprint ] }
-        { [ dup word? ] [ "Word: " write pprint ] }
-        [ drop ]
-    } cond ;
+    first pprint ;
 
 : optimized-frame. ( triple -- )
     [
@@ -100,7 +96,6 @@ SYMBOL: =>
     [
         [ "(U)" write ] with-cell
         [
-            "Quotation: " write
             dup [ second ] [ third ] bi remove-breakpoints
             H{
                 { nesting-limit 3 }