steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/alien/inline/inline.factor
View File

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