new accessors
parent
3f82d8eb9e
commit
6313ca9e33
|
@ -195,11 +195,11 @@ DEFER: parse-error-file
|
|||
|
||||
: string-layout
|
||||
{
|
||||
"USING: debugger io kernel lexer ;"
|
||||
"USING: accessors debugger io kernel ;"
|
||||
"IN: prettyprint.tests"
|
||||
": string-layout-test ( error -- )"
|
||||
" \"Expected \" write dup unexpected-want expected>string write"
|
||||
" \" but got \" write unexpected-got expected>string print ;"
|
||||
" \"Expected \" write dup want>> expected>string write"
|
||||
" \" but got \" write got>> expected>string print ;"
|
||||
} ;
|
||||
|
||||
|
||||
|
|
|
@ -115,10 +115,10 @@ M: object short-section? section-fits? ;
|
|||
|
||||
: pprint-section ( section -- )
|
||||
dup short-section? [
|
||||
dup section-style [ short-section ] with-style
|
||||
dup style>> [ short-section ] with-style
|
||||
] [
|
||||
[ <long-section ]
|
||||
[ dup section-style [ long-section ] with-style ]
|
||||
[ dup style>> [ long-section ] with-style ]
|
||||
[ long-section> ]
|
||||
tri
|
||||
] if ;
|
||||
|
|
Loading…
Reference in New Issue