From 395879893418dba5a4e292c440a694491f14a786 Mon Sep 17 00:00:00 2001
From: "U-VICTORIA\\Administrator" <Administrator@victoria.(none)>
Date: Mon, 8 Sep 2008 17:38:00 -0700
Subject: [PATCH] i are good at the facterz. let me show u

---
 basis/cocoa/messages/messages.factor       | 10 +++++++---
 basis/cocoa/subclassing/subclassing.factor |  2 +-
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/basis/cocoa/messages/messages.factor b/basis/cocoa/messages/messages.factor
index 964bec3f5c..413cab3b6d 100755
--- a/basis/cocoa/messages/messages.factor
+++ b/basis/cocoa/messages/messages.factor
@@ -107,7 +107,9 @@ USE: prettyprint
     . dup . ;
 
 : method-arg-type ( method i -- type )
-    method_copyArgumentType [ ascii alien>string ] keep (free) ;
+    method_copyArgumentType
+    [ ascii alien>string parse-objc-type ] keep
+    (free) ;
 
 SYMBOL: objc>alien-types
 
@@ -164,10 +166,12 @@ H{
 
 : method-arg-types ( method -- args )
     dup method_getNumberOfArguments
-    [ method-arg-type parse-objc-type ] with map ;
+    [ method-arg-type ] with map ;
 
 : method-return-type ( method -- ctype )
-    method_copyReturnType [ ascii alien>string ] keep (free) ;
+    method_copyReturnType
+    [ ascii alien>string parse-objc-type ] keep
+    (free) ;
 
 : register-objc-method ( method -- )
     dup method-return-type over method-arg-types 2array
diff --git a/basis/cocoa/subclassing/subclassing.factor b/basis/cocoa/subclassing/subclassing.factor
index dcd6ae4ad3..45071f1cec 100755
--- a/basis/cocoa/subclassing/subclassing.factor
+++ b/basis/cocoa/subclassing/subclassing.factor
@@ -57,7 +57,7 @@ IN: cocoa.subclassing
     
 : redefine-objc-methods ( imeth name -- )
     dup class-exists? [
-        objc_getClass swap [ (redefine-objc-method) ] with map
+        objc_getClass swap [ (redefine-objc-method) ] with each
     ] [
         2drop
     ] if ;