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

View File

@ -43,8 +43,10 @@ SYMBOL: c-strings
: compile-library? ( -- ? ) : compile-library? ( -- ? )
c-library get library-path dup exists? [ c-library get library-path dup exists? [
file get path>> file get [
[ file-info modified>> ] bi@ <=> +lt+ = path>>
[ file-info modified>> ] bi@ <=> +lt+ =
] [ drop t ] if*
] [ drop t ] if ; ] [ drop t ] if ;
: compile-library ( -- ) : compile-library ( -- )