use reject instead of [ ... not ] filter.

[factor.git] / extra / macho / macho.factor

diff --git a/extra/macho/macho.factor b/extra/macho/macho.factor
index caed787ef833bb68f1b0678312820e2b52e66d1b..f7ef4b84ca8af74e5860aef46b14c63760f54d4f 100644 (file)
--- a/extra/macho/macho.factor
+++ b/extra/macho/macho.factor
@@ -904,7 +904,7 @@ TYPED: load-commands ( macho: mach_header_32/64 -- load-commands )
     [ symtab_command? ] filter ; inline
 
 : read-array-string ( uchar-array -- string )
-    ascii decode [ 0 = not ] filter ;
+    ascii decode [ 0 = ] reject ;
 
 : segment-sections ( segment-command -- sections )
     {