db4
Doug Coleman 2008-08-30 20:37:55 -05:00
parent 4a887d355f
commit 6fe6475cce
1 changed files with 6 additions and 4 deletions

View File

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