From 4d5b83c3f534ad6a85b388e54ebe92f782e6c0dd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Thu, 1 Dec 2016 19:52:02 +0100
Subject: [PATCH] compiler.cfg.builder.alien.tests: fix test that broke windows

---
 basis/compiler/cfg/builder/alien/alien-tests.factor | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/basis/compiler/cfg/builder/alien/alien-tests.factor b/basis/compiler/cfg/builder/alien/alien-tests.factor
index 7c4bb9bfe8..46eef2e0e5 100644
--- a/basis/compiler/cfg/builder/alien/alien-tests.factor
+++ b/basis/compiler/cfg/builder/alien/alien-tests.factor
@@ -1,4 +1,4 @@
-USING: accessors alien alien.c-types assocs compiler.cfg
+USING: accessors alien alien.c-types alien.strings assocs compiler.cfg
 compiler.cfg.builder compiler.cfg.builder.alien
 compiler.cfg.builder.alien.params compiler.cfg.builder.blocks
 compiler.cfg.instructions compiler.cfg.registers compiler.cfg.stacks
@@ -43,9 +43,13 @@ IN: compiler.cfg.builder.alien.tests
 ] cfg-unit-test
 
 ! caller-linkage
-{ "malloc" f } [
-    f f cdecl f f "malloc" alien-invoke-params boa
+${
+    "malloc"
+    os windows? "msvcrt.dll" f ?
+} [
+    f f cdecl f "libc" "malloc" alien-invoke-params boa
     caller-linkage
+    dup [ path>> alien>native-string ] when
 ] unit-test
 
 SYMBOL: foo