Paste: remove duplicates
| Author: | blei |
|---|
| Mode: | factor |
|---|
| Date: | Sun, 9 May 2010 21:50:59 |
|---|
Plain Text |
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 -- )
New Annotation