remove duplicates to conform with lint-tool

db4
Jon Harper 2010-05-10 01:49:21 +02:00
parent 39bcf7af6a
commit 0aa00044ba
1 changed files with 2 additions and 0 deletions

View File

@ -7,6 +7,7 @@ math.parser io.streams.string ui.tools.operations quotations
strings arrays prettyprint words vocabs sorting sets classes
math alien urls splitting ascii combinators.short-circuit timers
words.symbol system summary ;
FROM: sets => members ;
IN: tools.scaffold
SYMBOL: developer-name
@ -170,6 +171,7 @@ M: bad-developer-name summary
2dup [ empty? ] bi@ and [
2drop
] [
[ members ] dip over diff
"{ $values" print
[ 4bl ($values.) ]
[ [ nl 4bl ($values.) ] unless-empty ] bi*