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

Summary:
Author:
Mode:
Body: