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

fix bug

db4
Doug Coleman 2008-08-30 20:37:55 -05:00
parent 4a887d355f
commit 6fe6475cce
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/xmode/catalog/catalog.factor
View File

@ -84,10 +84,12 @@ ERROR: mutually-recursive-rulesets ruleset ;
: finalize-rule-set ( ruleset -- ) : finalize-rule-set ( ruleset -- )
dup finalized?>> { dup finalized?>> {
{ f [ { f [
1 >>finalized? {
[ resolve-imports ] [ 1 >>finalized? drop ]
[ resolve-delegates ] bi [ resolve-imports ]
t >>finalized? drop [ resolve-delegates ]
[ t >>finalized? drop ]
} cleave
] } ] }
{ t [ drop ] } { t [ drop ] }
{ 1 [ mutually-recursive-rulesets ] } { 1 [ mutually-recursive-rulesets ] }