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

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

Jeremy Hughes 2009-07-07 16:07:27 +12:00
parent 942702166a
commit b30ed4802a
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 ;