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