From 63e06589bddfa387fdbe41cc0abeaeac83f7b205 Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@jobim.local>
Date: Thu, 26 Mar 2009 18:56:10 -0500
Subject: [PATCH] don't normalize-path in add-library

---
 basis/alien/libraries/libraries.factor |  1 -
 basis/compiler/tests/alien.factor      | 11 ++++++-----
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/basis/alien/libraries/libraries.factor b/basis/alien/libraries/libraries.factor
index adb9eeb1bb..3fcc15974c 100644
--- a/basis/alien/libraries/libraries.factor
+++ b/basis/alien/libraries/libraries.factor
@@ -18,5 +18,4 @@ TUPLE: library path abi dll ;
     library dup [ dll>> ] when ;
 
 : add-library ( name path abi -- )
-    [ dup [ normalize-path ] when ] dip
     <library> swap libraries get set-at ;
diff --git a/basis/compiler/tests/alien.factor b/basis/compiler/tests/alien.factor
index aa9346f788..b26abb561c 100644
--- a/basis/compiler/tests/alien.factor
+++ b/basis/compiler/tests/alien.factor
@@ -1,18 +1,19 @@
-IN: compiler.tests
 USING: alien alien.c-types alien.syntax compiler kernel
 namespaces namespaces tools.test sequences stack-checker
 stack-checker.errors words arrays parser quotations
 continuations effects namespaces.private io io.streams.string
 memory system threads tools.test math accessors combinators
 specialized-arrays.float alien.libraries ;
+IN: compiler.tests
 
 <<
 : libfactor-ffi-tests-path ( -- string )
+    "resource:" normalize-path
     {
-        { [ os winnt? ]  [ "resource:libfactor-ffi-test.dll" ] }
-        { [ os macosx? ] [ "resource:libfactor-ffi-test.dylib" ] }
-        { [ os unix?  ]  [ "resource:libfactor-ffi-test.so" ] }
-    } cond ;
+        { [ os winnt? ]  [ "libfactor-ffi-test.dll" ] }
+        { [ os macosx? ] [ "libfactor-ffi-test.dylib" ] }
+        { [ os unix?  ]  [ "libfactor-ffi-test.so" ] }
+    } cond append-path ;
 
 "f-cdecl" libfactor-ffi-tests-path "cdecl" add-library