Change module load order

darcs
slava 2006-12-05 01:50:21 +00:00
parent 7c794a4d96
commit 6d068e934c
1 changed files with 2 additions and 2 deletions

View File

@ -15,11 +15,11 @@ TUPLE: module-link name ;
M: module-link module-name module-link-name ;
: module-def ( name -- path )
"resource:" over ".factor" append3
"resource:" over "/load.factor" append3
dup ?resource-path exists? [
nip
] [
drop "resource:" swap "/load.factor" append3
drop "resource:" swap ".factor" append3
] if ;
: module modules get [ module-name = ] find-with nip ;