diff --git a/basis/tools/scaffold/scaffold.factor b/basis/tools/scaffold/scaffold.factor index 8fd3e53..efb5053 100644 --- a/basis/tools/scaffold/scaffold.factor +++ b/basis/tools/scaffold/scaffold.factor @@ -164,15 +164,12 @@ M: bad-developer-name summary : $values. ( word -- ) "declared-effect" word-prop [ - [ in>> ] [ out>> ] bi - 2dup [ empty? ] bi@ and [ - 2drop - ] [ + [ in>> ] [ out>> ] bi append + [ "{ $values" print - [ 4bl ($values.) ] - [ [ nl 4bl ($values.) ] unless-empty ] bi* + 4bl ($values.) nl "}" print - ] if + ] unless-empty ] when* ; : symbol-description. ( word -- )