From db2db6a1a6ddf4846857cfd59c29220be2c61874 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 12 May 2010 18:07:11 -0400
Subject: [PATCH] compiler.cfg.builder.alien: fix for x86-32

---
 basis/compiler/cfg/builder/alien/alien.factor | 1 +
 1 file changed, 1 insertion(+)

diff --git a/basis/compiler/cfg/builder/alien/alien.factor b/basis/compiler/cfg/builder/alien/alien.factor
index be01a2886e..3f529fce9d 100644
--- a/basis/compiler/cfg/builder/alien/alien.factor
+++ b/basis/compiler/cfg/builder/alien/alien.factor
@@ -241,6 +241,7 @@ M: c-type flatten-c-type
             cell 4 = { stack-params stack-params } { stack-params } ?
             { double-rep } ?
         ] }
+        { stack-params [ { stack-params } ] }
     } case ;
     
 M: object flatten-c-type base-type flatten-c-type ;