kill a -roll

2009-10-30 00:42:34 -05:00 · 2009-10-30 00:42:34 -05:00 · 18888b1d9b
parent 0f55b8b4c5
commit 18888b1d9b
1 changed files with 1 additions and 1 deletions
--- 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