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