alien.inline: allow compiling from non-file vocabs

2009-07-08 09:29:41 +12:00 · 2009-07-08 09:29:41 +12:00 · 09aea6d8e6
parent 5e822dd454
commit 09aea6d8e6
1 changed files with 4 additions and 2 deletions
--- 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 ( -- )