alien.inline: file get path>> instead of vocab-source-path

db4
Jeremy Hughes 2009-07-07 16:07:27 +12:00
parent e76229a8f6
commit da024f5547
1 changed files with 2 additions and 2 deletions

View File

@ -4,7 +4,7 @@ USING: accessors alien.inline.compiler alien.inline.types
alien.libraries alien.parser arrays assocs effects fry
generalizations grouping io.files io.files.info io.files.temp
kernel lexer math math.order math.ranges multiline namespaces
sequences splitting strings system vocabs.loader
sequences source-files splitting strings system vocabs.loader
vocabs.parser words ;
IN: alien.inline
@ -48,7 +48,7 @@ SYMBOL: c-strings
: compile-library? ( -- ? )
library-path dup exists? [
current-vocab vocab-source-path
file get path>>
[ file-info modified>> ] bi@ <=> +lt+ =
] [ drop t ] if ;