alien.inline: allow compiling from non-file vocabs

db4
Jeremy Hughes 2009-07-08 09:29:41 +12:00
parent b421a360c0
commit 1c42ebd89e
1 changed files with 4 additions and 2 deletions
basis/alien/inline

View File

@ -43,8 +43,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 ( -- )