]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/cocoa/enumeration/enumeration.factor
Fix conflict
[factor.git] / basis / cocoa / enumeration / enumeration.factor
index 919e8f86c5ff097b23faaecfad22abfc8daade58..1f9430e443e1f4f522005cdfdb58912b4dd39a67 100644 (file)
@@ -8,12 +8,11 @@ IN: cocoa.enumeration
 CONSTANT: NS-EACH-BUFFER-SIZE 16
 
 : with-enumeration-buffers ( quot -- )
-    [
-        [
-            "NSFastEnumerationState" malloc-object &free
-            NS-EACH-BUFFER-SIZE "id" heap-size * malloc-object &free
-            NS-EACH-BUFFER-SIZE
-        ] dip call
+    '[
+        "NSFastEnumerationState" malloc-object &free
+        NS-EACH-BUFFER-SIZE "id" malloc-array &free
+        NS-EACH-BUFFER-SIZE
+        @
     ] with-destructors ; inline
 
 :: (NSFastEnumeration-each) ( object quot: ( elt -- ) state stackbuf count -- )