Fix a typo

diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index d990f610a0241de66453aa6da7322ce7aa29a7df..981216a9cb653d5cb99cd9a8c4175d193e1d544c 100644 (file)
--- 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 2f6de781e1c884c53bb82992453a36309d69bc3a..adb0627db40791860101292fd54d6fbfa40febb9 100644 (file)
--- 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