From da024f5547b43b65f59b6dd4eed98c34b5297da4 Mon Sep 17 00:00:00 2001 From: Jeremy Hughes Date: Tue, 7 Jul 2009 16:07:27 +1200 Subject: [PATCH] alien.inline: file get path>> instead of vocab-source-path --- basis/alien/inline/inline.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/alien/inline/inline.factor b/basis/alien/inline/inline.factor index ae4a95497a..365b56ca28 100644 --- a/basis/alien/inline/inline.factor +++ b/basis/alien/inline/inline.factor @@ -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 ;