From 6fe6475cce47b99f47192fc75e4673869c47077c Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 30 Aug 2008 20:37:55 -0500 Subject: [PATCH] fix bug --- extra/xmode/catalog/catalog.factor | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/extra/xmode/catalog/catalog.factor b/extra/xmode/catalog/catalog.factor index e85188e82d..092eced330 100755 --- a/extra/xmode/catalog/catalog.factor +++ b/extra/xmode/catalog/catalog.factor @@ -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 ] }