steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/tools/scaffold/scaffold.factor
View File

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