]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/cocoa/enumeration/enumeration.factor
Updating code for make and fry changes
[factor.git] / basis / cocoa / enumeration / enumeration.factor
index 765fb65ef2a43c527ebaa13c3075c219d83ad6ae..7de1f24a3c6e04b1f0c57e287675a0e268d6cf6b 100644 (file)
@@ -15,7 +15,7 @@ IN: cocoa.enumeration
     object state stackbuf count -> countByEnumeratingWithState:objects:count:
     dup zero? [ drop ] [
         state NSFastEnumerationState-itemsPtr [ stackbuf ] unless*
-        '[ , void*-nth quot call ] each
+        '[ _ void*-nth quot call ] each
         object quot state stackbuf count (NSFastEnumeration-each)
     ] if ; inline recursive
 
@@ -24,7 +24,7 @@ IN: cocoa.enumeration
 
 : NSFastEnumeration-map ( object quot -- vector )
     NS-EACH-BUFFER-SIZE <vector>
-    [ '[ @ , push ] NSFastEnumeration-each ] keep ; inline
+    [ '[ @ _ push ] NSFastEnumeration-each ] keep ; inline
 
 : NSFastEnumeration>vector ( object -- vector )
     [ ] NSFastEnumeration-map ;