eliminate redundant redundancy

diff --git a/basis/tools/scaffold/scaffold.factor b/basis/tools/scaffold/scaffold.factor
index 777dddf0ebc647bb9fb4ed3f4efd2cdc48a77fc0..1c1a48ff9de8f0bbf08d4a596c90be649c3ce657 100644 (file)
--- 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