From 9aab1c87b45dc820fa9407a1138fe74f42e0cfdc Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 5 Aug 2015 19:10:58 -0700
Subject: [PATCH] generic.standard: check GENERIC# for integer dispatch#.

---
 core/generic/standard/standard.factor | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/core/generic/standard/standard.factor b/core/generic/standard/standard.factor
index c214e2f999..0d1a4775ec 100644
--- a/core/generic/standard/standard.factor
+++ b/core/generic/standard/standard.factor
@@ -10,7 +10,8 @@ ERROR: bad-dispatch-position # ;
 TUPLE: standard-combination < single-combination # ;
 
 : <standard-combination> ( # -- standard-combination )
-    dup 0 < [ bad-dispatch-position ] when
+    dup integer? [ dup 0 < ] [ t ] if
+    [ bad-dispatch-position ] when
     standard-combination boa ;
 
 M: standard-combination check-combination-effect