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

[factor.git] / extra / elf / nm / nm.factor

diff --git a/extra/elf/nm/nm.factor b/extra/elf/nm/nm.factor
index 52e1c66902e3c7f1d87d46a914cb0803bb0f4cca..a36ff1f8324ba7ce38f7d5b53631ae3499e6234d 100644 (file)
--- a/extra/elf/nm/nm.factor
+++ b/extra/elf/nm/nm.factor
@@ -19,6 +19,6 @@ IN: elf.nm
 : elf-nm ( path -- )
     [
         sections dup ".symtab" find-section
-        symbols [ name>> empty? not ] filter
+        symbols [ name>> empty? ] reject
         [ print-symbol ] with each
     ] with-mapped-elf ;