X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Ffixups%2Ffixups.factor;h=6404add671bd43a7a949ac073c67dc98f2b44699;hp=6cefa92290fd3996e88ed47e850cbeb3084d21b5;hb=96d543056491bfd71e65a093f4add5a6a5bb780d;hpb=6206ba5583b7616c59741963dbf01d8c9c88e223 diff --git a/basis/fixups/fixups.factor b/basis/fixups/fixups.factor index 6cefa92290..6404add671 100644 --- 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* ;