tools.scaffold: clean up

2010-08-02 20:50:59 -04:00 · 2010-08-02 20:50:59 -04:00 · 0e0efbd24a
parent c3ae7f3a11
commit 0e0efbd24a
1 changed files with 2 additions and 2 deletions
--- 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