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

Remove redundant newline

db4
Jon Harper 2010-05-10 01:52:46 +02:00
parent 0aa00044ba
commit cfc902ed0a
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/tools/scaffold/scaffold.factor
View File

@ -165,6 +165,9 @@ M: bad-developer-name summary
: 4bl ( -- ) : 4bl ( -- )
" " write ; inline " " write ; inline
: ?print-nl ( seq1 seq2 -- )
{ [ nip empty? ] [ drop empty? ] } 2|| not
[ nl ] when ;
: $values. ( word -- ) : $values. ( word -- )
"declared-effect" word-prop [ "declared-effect" word-prop [
[ in>> ] [ out>> ] bi [ in>> ] [ out>> ] bi
@ -173,8 +176,9 @@ M: bad-developer-name summary
] [ ] [
[ members ] dip over diff [ members ] dip over diff
"{ $values" print "{ $values" print
[ 4bl ($values.) ] [ drop 4bl ($values.) ]
[ [ nl 4bl ($values.) ] unless-empty ] bi* [ ?print-nl ]
[ nip 4bl ($values.) ] 2tri
nl "}" print nl "}" print
] if ] if
] when* ; ] when* ;