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

kill a -roll

db4
Joe Groff 2009-10-30 00:42:34 -05:00
parent 09e76591b1
commit 3cf6931fc2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/xmode/catalog/catalog.factor
View File

@ -48,7 +48,7 @@ SYMBOL: rule-sets
: get-rule-set ( name -- rule-sets rules ) : get-rule-set ( name -- rule-sets rules )
dup "::" split1 [ swap (load-mode) ] [ rule-sets get ] if* 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 DEFER: finalize-rule-set