From 3cf6931fc23bdf0f20983ee62e16e9833b7d2a0a Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Fri, 30 Oct 2009 00:42:34 -0500 Subject: [PATCH] kill a -roll --- basis/xmode/catalog/catalog.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/xmode/catalog/catalog.factor b/basis/xmode/catalog/catalog.factor index 894ec264ab..97de95a932 100644 --- a/basis/xmode/catalog/catalog.factor +++ b/basis/xmode/catalog/catalog.factor @@ -48,7 +48,7 @@ SYMBOL: rule-sets : get-rule-set ( name -- rule-sets rules ) dup "::" split1 [ swap (load-mode) ] [ rule-sets get ] if* - dup -roll at* [ nip ] [ drop no-such-rule-set ] if ; + [ at* [ nip ] [ drop no-such-rule-set ] if ] keep swap ; DEFER: finalize-rule-set