From 09aea6d8e6ccbbb94c7b1ac6bdddc5f43e891a1e Mon Sep 17 00:00:00 2001
From: Jeremy Hughes <jedahu@gmail.com>
Date: Wed, 8 Jul 2009 09:29:41 +1200
Subject: [PATCH] alien.inline: allow compiling from non-file vocabs

---
 basis/alien/inline/inline.factor | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/basis/alien/inline/inline.factor b/basis/alien/inline/inline.factor
index 8043dad24d..f273bfb911 100644
--- a/basis/alien/inline/inline.factor
+++ b/basis/alien/inline/inline.factor
@@ -23,8 +23,10 @@ SYMBOL: c-strings
 
 : compile-library? ( -- ? )
     c-library get library-path dup exists? [
-        file get path>>
-        [ file-info modified>> ] bi@ <=> +lt+ =
+        file get [
+            path>>
+            [ file-info modified>> ] bi@ <=> +lt+ =
+        ] [ drop t ] if*
     ] [ drop t ] if ;
 
 : compile-library ( -- )