eliminate redundant redundancy

2008-09-03 21:38:16 -05:00 · 2008-09-03 21:38:16 -05:00 · b0e16704e6
parent 2e0e061790
commit b0e16704e6
1 changed files with 1 additions and 1 deletions
--- a/basis/tools/scaffold/scaffold.factor
+++ b/basis/tools/scaffold/scaffold.factor
@ -117,7 +117,7 @@ ERROR: vocab-name-contains-dot path ;
        dup array? [ first ] when
        dup lookup-type [
            [ unparse write bl ]
-            [ dup string? [ unparse write ] [ [ pprint ] [ add-using ] bi ] if ] bi*
+            [ [ pprint ] [ dup string? [ drop ] [ add-using ] if ] bi ] bi*
        ] [
            drop unparse write bl null pprint
            null add-using