tools.scaffold: clean up

diff --git a/basis/tools/scaffold/scaffold.factor b/basis/tools/scaffold/scaffold.factor
index 6c7c4528bf7e3d033ab592a11bb4c90bc4030724..3141f1d098848888dc448443cffae54658231d15 100644 (file)
--- a/basis/tools/scaffold/scaffold.factor
+++ b/basis/tools/scaffold/scaffold.factor
@@ -166,8 +166,8 @@ M: bad-developer-name summary
     "    " write ; inline
 
 : ?print-nl ( seq1 seq2 -- )
-    { [ nip empty? ] [ drop empty? ] } 2|| not
-    [ nl ] when ;
+    [ empty? ] either? [ nl ] unless ;
+
 : $values. ( word -- )
     "declared-effect" word-prop [
         [ in>> ] [ out>> ] bi