From 84fe4a7d672ef6a3ddf72499a3233b268260c2ae Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 5 May 2009 09:12:49 -0500
Subject: [PATCH] generic.standard: remove bogus error check

---
 core/generic/standard/standard.factor | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/core/generic/standard/standard.factor b/core/generic/standard/standard.factor
index 87611a76d0..bf801c4e47 100644
--- a/core/generic/standard/standard.factor
+++ b/core/generic/standard/standard.factor
@@ -8,9 +8,7 @@ IN: generic.standard
 
 TUPLE: standard-combination < single-combination # ;
 
-: <standard-combination> ( n -- standard-combination )
-    dup 0 2 between? [ "Bad dispatch position" throw ] unless
-    standard-combination boa ;
+C: <standard-combination> standard-combination
 
 PREDICATE: standard-generic < generic
     "combination" word-prop standard-combination? ;