From 565e3383abf5a62232847828fbe8ad4127d5bade Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Wed, 31 Mar 2010 19:17:06 -0700
Subject: [PATCH] add singletons for stdcall, cdecl, mingw abis

---
 core/alien/alien.factor | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/core/alien/alien.factor b/core/alien/alien.factor
index a44d703fbc..7a539d4dd5 100644
--- a/core/alien/alien.factor
+++ b/core/alien/alien.factor
@@ -5,6 +5,10 @@ kernel.private byte-arrays byte-vectors arrays init
 continuations.private ;
 IN: alien
 
+SINGLETONS: stdcall cdecl mingw ;
+
+UNION: abi stdcall cdecl mingw ;
+
 PREDICATE: pinned-alien < alien underlying>> not ;
 
 UNION: pinned-c-ptr pinned-alien POSTPONE: f ;