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

generic.standard: remove bogus error check

db4
Slava Pestov 2009-05-05 09:12:49 -05:00
parent 0ecb771aa4
commit 84fe4a7d67
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/generic/standard/standard.factor
View File

@ -8,9 +8,7 @@ IN: generic.standard
TUPLE: standard-combination < single-combination # ; TUPLE: standard-combination < single-combination # ;
: <standard-combination> ( n -- standard-combination ) C: <standard-combination> standard-combination
dup 0 2 between? [ "Bad dispatch position" throw ] unless
standard-combination boa ;
PREDICATE: standard-generic < generic PREDICATE: standard-generic < generic
"combination" word-prop standard-combination? ; "combination" word-prop standard-combination? ;