alien.inline: allow compiling from non-file vocabs
parent
5e822dd454
commit
09aea6d8e6
|
@ -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 ( -- )
|
||||
|
|
Loading…
Reference in New Issue