basis/extra: use remove in a few places

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

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