Merge OneEyed's patch

[factor.git] / extra / iokit / iokit.factor

diff --git a/extra/iokit/iokit.factor b/extra/iokit/iokit.factor
index f5ede8f8ec439fcf9c9d81f67b1243c30478bb6f..f7ea81c0c227c6bf3bcaff38d1c3360928007c05 100755 (executable)
--- a/extra/iokit/iokit.factor
+++ b/extra/iokit/iokit.factor
@@ -166,9 +166,7 @@ M: mach-error error.
     IOObjectRelease mach-error ;
 
 : io-objects-from-iterator* ( i -- i array )
-    [ dup IOIteratorNext dup MACH_PORT_NULL = not ]
-    [ ]
-    [ drop ] produce ;
+    [ dup IOIteratorNext dup MACH_PORT_NULL = not ] [ ] produce nip ;
 
 : io-objects-from-iterator ( i -- array )
     io-objects-from-iterator* [ release-io-object ] dip ;