From b0e16704e6ed1b4b8c526c5d959dd217fc20ad6d Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 3 Sep 2008 21:38:16 -0500
Subject: [PATCH] eliminate redundant redundancy

---
 basis/tools/scaffold/scaffold.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/tools/scaffold/scaffold.factor b/basis/tools/scaffold/scaffold.factor
index 777dddf0eb..1c1a48ff9d 100644
--- 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