From 24b116be1caed10d10d33085416a09e690ebd3a1 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 10 Apr 2013 19:18:15 -0700 Subject: [PATCH] prettyprint: rename so it doesn't look so much like print-error. --- basis/prettyprint/prettyprint.factor | 4 ++-- basis/ui/tools/traceback/traceback.factor | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/prettyprint/prettyprint.factor b/basis/prettyprint/prettyprint.factor index 48902f8d0a..6a73536c2a 100644 --- 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 06d2fbe719..e08a279006 100644 --- 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 ; : ( 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