new accessors
parent
3f82d8eb9e
commit
6313ca9e33
|
@ -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 ;"
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -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 ;
|
||||||
|
|
Loading…
Reference in New Issue