Remove redundant newline

diff --git a/basis/tools/scaffold/scaffold.factor b/basis/tools/scaffold/scaffold.factor
index 8cf76c6de42790c8488118dc21548a181e04c127..6c7c4528bf7e3d033ab592a11bb4c90bc4030724 100644 (file)
--- 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* ;