From 0aa00044ba62abd50b127636fb2649b671b79a79 Mon Sep 17 00:00:00 2001 From: Jon Harper Date: Mon, 10 May 2010 01:49:21 +0200 Subject: [PATCH] remove duplicates to conform with lint-tool --- basis/tools/scaffold/scaffold.factor | 2 ++ 1 file changed, 2 insertions(+) diff --git a/basis/tools/scaffold/scaffold.factor b/basis/tools/scaffold/scaffold.factor index 17df1a13f2..8cf76c6de4 100644 --- a/basis/tools/scaffold/scaffold.factor +++ b/basis/tools/scaffold/scaffold.factor @@ -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*