new accessors

db4
Doug Coleman 2008-08-30 21:55:29 -05:00
parent 3f82d8eb9e
commit 6313ca9e33
2 changed files with 5 additions and 5 deletions

View File

@ -195,11 +195,11 @@ DEFER: parse-error-file
: string-layout : string-layout
{ {
"USING: debugger io kernel lexer ;" "USING: accessors debugger io kernel ;"
"IN: prettyprint.tests" "IN: prettyprint.tests"
": string-layout-test ( error -- )" ": string-layout-test ( error -- )"
" \"Expected \" write dup unexpected-want expected>string write" " \"Expected \" write dup want>> expected>string write"
" \" but got \" write unexpected-got expected>string print ;" " \" but got \" write got>> expected>string print ;"
} ; } ;

View File

@ -115,10 +115,10 @@ M: object short-section? section-fits? ;
: pprint-section ( section -- ) : pprint-section ( section -- )
dup short-section? [ dup short-section? [
dup section-style [ short-section ] with-style dup style>> [ short-section ] with-style
] [ ] [
[ <long-section ] [ <long-section ]
[ dup section-style [ long-section ] with-style ] [ dup style>> [ long-section ] with-style ]
[ long-section> ] [ long-section> ]
tri tri
] if ; ] if ;