From a0421edf97056f14a1dceb9f0e90a553cbf28ca4 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Tue, 10 Feb 2009 16:39:24 -0600
Subject: [PATCH 1/2] set fortran abi in fortran-invoke macro

---
 basis/alien/fortran/fortran.factor | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/basis/alien/fortran/fortran.factor b/basis/alien/fortran/fortran.factor
index cdf64ecb10..a2ffc55c02 100644
--- a/basis/alien/fortran/fortran.factor
+++ b/basis/alien/fortran/fortran.factor
@@ -418,8 +418,12 @@ PRIVATE>
 
 : RECORD: scan in get parse-definition define-fortran-record ; parsing
 
+: set-fortran-abi ( library -- )
+    library-fortran-abis get-global at fortran-abi set ;
+
 : (fortran-invoke) ( return library function parameters -- quot )
     {
+        [ 2drop nip set-fortran-abi ]
         [ 2nip [<fortran-result>] ]
         [ nip nip nip [fortran-args>c-args] ]
         [ [fortran-invoke] ]
@@ -445,5 +449,5 @@ MACRO: fortran-invoke ( return library function parameters -- )
 : LIBRARY:
     scan
     [ "c-library" set ]
-    [ library-fortran-abis get-global at fortran-abi set ] bi  ; parsing
+    [ set-fortran-abi ] bi  ; parsing
 

From 9060905983c9d11c7a26cce5a027278da2f08b58 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 10 Feb 2009 16:52:27 -0600
Subject: [PATCH 2/2] Fix bootstrap

---
 basis/cocoa/messages/messages.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/cocoa/messages/messages.factor b/basis/cocoa/messages/messages.factor
index 529efeb564..ce66467203 100644
--- a/basis/cocoa/messages/messages.factor
+++ b/basis/cocoa/messages/messages.factor
@@ -79,7 +79,7 @@ MACRO: (send) ( selector super? -- quot )
 ! Runtime introspection
 SYMBOL: class-init-hooks
 
-class-init-hooks [ H{ } clone or ] initialize
+class-init-hooks [ H{ } clone ] initialize
 
 : (objc-class) ( name word -- class )
     2dup execute dup [ 2nip ] [