factor: trim using lists

[factor.git] / basis / fixups / fixups.factor

diff --git a/basis/fixups/fixups.factor b/basis/fixups/fixups.factor
index 6cefa92290fd3996e88ed47e850cbeb3084d21b5..6404add671bd43a7a949ac073c67dc98f2b44699 100644 (file)
--- a/basis/fixups/fixups.factor
+++ b/basis/fixups/fixups.factor
@@ -58,7 +58,7 @@ M: object compute-fixups
 M: f compute-fixups 2drop { } ;
 
 M: no-vocab compute-fixups
-    name>> vocab-renames compute-assoc-fixups ;
+    [ name>> vocab-renames compute-assoc-fixups ] [ drop { } ] if* ;
 
 M: no-word-error compute-fixups
-    name>> word-renames compute-assoc-fixups ;
+    [ name>> word-renames compute-assoc-fixups ] [ drop { } ] if* ;