From 0e0efbd24a79e09784e6b1d87ade298227a383a7 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Mon, 2 Aug 2010 20:50:59 -0400
Subject: [PATCH] tools.scaffold: clean up

---
 basis/tools/scaffold/scaffold.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/tools/scaffold/scaffold.factor b/basis/tools/scaffold/scaffold.factor
index 6c7c4528bf..3141f1d098 100644
--- 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