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

Remove unnecessary word

slava 2006-10-28 06:47:46 +00:00
parent 68d9f8218d
commit e2202e3305
1 changed files with 5 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
library/prettyprint/sections.factor
View File

@ -120,17 +120,15 @@ M: inset section-fits? ( section -- ? )
section-start last-newline get = [ bl ] unless section-start last-newline get = [ bl ] unless
] if ; ] if ;
: pprint-block ( block -- ) M: block short-section ( block -- )
dup <style dup <style
block-sections unclip pprint-section block-sections unclip pprint-section
[ dup advance pprint-section ] each [ dup advance pprint-section ] each
style> ; style> ;
M: inset short-section pprint-block ;
M: inset long-section M: inset long-section
<indent <indent
dup section-start fresh-line dup pprint-block dup section-start fresh-line dup short-section
indent> indent>
section-end fresh-line ; section-end fresh-line ;
@ -149,9 +147,8 @@ M: flow section-fits? ( section -- ? )
dup section-end swap section-start - text-fits? not dup section-end swap section-start - text-fits? not
] if ; ] if ;
M: flow short-section pprint-block ; M: flow long-section
dup section-start fresh-line short-section ;
M: flow long-section dup section-start fresh-line pprint-block ;
: <flow ( style -- ) <flow> (<block) ; : <flow ( style -- ) <flow> (<block) ;
@ -168,8 +165,6 @@ M: narrow section-fits? ( section -- ? )
section-end last-newline get - 2 + text-fits? section-end last-newline get - 2 + text-fits?
] if ; ] if ;
M: narrow short-section pprint-block ;
: narrow-block ( block -- ) : narrow-block ( block -- )
dup <style dup <style
block-sections unclip pprint-section block-sections unclip pprint-section
@ -190,11 +185,9 @@ TUPLE: defblock ;
C: defblock ( style -- block ) C: defblock ( style -- block )
swap <block> over set-delegate ; swap <block> over set-delegate ;
M: defblock short-section pprint-block ;
M: defblock long-section M: defblock long-section
<indent <indent
dup section-start fresh-line pprint-block dup section-start fresh-line short-section
indent> ; indent> ;
: <defblock ( style -- ) <defblock> (<block) ; : <defblock ( style -- ) <defblock> (<block) ;