steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
John Benediktsson 2013-04-10 19:18:15 -07:00
parent e42144e9ea
commit 24b116be1c
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/prettyprint/prettyprint.factor
View File

@ -35,7 +35,7 @@ IN: prettyprint
: short. ( obj -- ) pprint-short nl ; : short. ( obj -- ) pprint-short nl ;
: pprint-error ( obj -- str ) : error-in-pprint ( obj -- str )
class-of name>> "~pprint error: " "~" surround ; class-of name>> "~pprint error: " "~" surround ;
: .b ( n -- ) >bin print ; : .b ( n -- ) >bin print ;
@ -45,7 +45,7 @@ IN: prettyprint
: stack. ( seq -- ) : stack. ( seq -- )
[ [
[ short. ] [ [ short. ] [
drop [ pprint-error ] keep write-object nl drop [ error-in-pprint ] keep write-object nl
] recover ] recover
] each ; ] each ;

2
basis/ui/tools/traceback/traceback.factor
View File

@ -12,7 +12,7 @@ IN: ui.tools.traceback
TUPLE: stack-entry object string ; TUPLE: stack-entry object string ;
: <stack-entry> ( object -- stack-entry ) : <stack-entry> ( object -- stack-entry )
dup [ unparse-short ] [ drop pprint-error ] recover dup [ unparse-short ] [ drop error-in-pprint ] recover
stack-entry boa ; stack-entry boa ;
SINGLETON: stack-entry-renderer SINGLETON: stack-entry-renderer