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

Cleanup

db4
Slava Pestov 2008-08-15 04:09:34 -05:00
parent 1c2f76f964
commit cf556faf66
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/prettyprint/sections/sections.factor
View File

@ -171,10 +171,11 @@ M: block section-fits? ( section -- ? )
line-limit? [ drop t ] [ call-next-method ] if ; line-limit? [ drop t ] [ call-next-method ] if ;
: pprint-sections ( block advancer -- ) : pprint-sections ( block advancer -- )
swap sections>> [ line-break? not ] filter [
unclip pprint-section [ sections>> [ line-break? not ] filter
dup rot call pprint-section unclip-slice pprint-section
] with each ; inline ] dip
[ [ pprint-section ] bi ] curry each ; inline
M: block short-section ( block -- ) M: block short-section ( block -- )
[ advance ] pprint-sections ; [ advance ] pprint-sections ;