From 726ebfd1ed3c380bdcfe989905348546e7404505 Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Tue, 14 Nov 2006 00:51:20 +0000
Subject: [PATCH] Fix a typo

---
 TODO.FACTOR.txt                            | 1 +
 library/compiler/alien/alien-invoke.factor | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index d990f610a0..981216a9cb 100644
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@@ -1,5 +1,6 @@
 - workspace window takes too long to come up
 - bogus compile error
+- windows crash
 - live search: timer delay would be nice
 
 + 0.87:
diff --git a/library/compiler/alien/alien-invoke.factor b/library/compiler/alien/alien-invoke.factor
index 2f6de781e1..adb0627db4 100644
--- a/library/compiler/alien/alien-invoke.factor
+++ b/library/compiler/alien/alien-invoke.factor
@@ -65,7 +65,7 @@ M: alien-invoke-error summary
     [ ] [ f swap c-type c-type-box ] if-void ;
 
 : generate-invoke-cleanup ( node -- )
-    dup alien-invoke-abi [
+    dup alien-invoke-abi "stdcall" = [
         drop
     ] [
         alien-invoke-parameters stack-space %cleanup