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

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

4
core/modules.factor
View File

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