cocoa.messages: fix typo and print to stderr

[factor.git] / basis / cocoa / messages / messages.factor

diff --git a/basis/cocoa/messages/messages.factor b/basis/cocoa/messages/messages.factor
index 5775fec4af00f1ab7346ff9cbe4339365af2ec77..6b8ae883b6701773249cdfca54ee94d563197c5d 100644 (file)
--- a/basis/cocoa/messages/messages.factor
+++ b/basis/cocoa/messages/messages.factor
@@ -220,9 +220,11 @@ ERROR: no-objc-type name ;
 : method-return-type ( method -- ctype )
     method_copyReturnType
     [
-        utf8 alien>string dup string>number
-        [ "unknown obcj return type: " prepend print f ]
-        [ parse-objc-type ] if
+        utf8 alien>string dup string>number [
+            "unknown objc return type: " prepend
+            [ print ] with-output>error
+            f
+        ] [ parse-objc-type ] if
     ] keep (free) ;
 
 : method-signature ( method -- signature )