generic.standard: check GENERIC# for integer dispatch#.

diff --git a/core/generic/standard/standard.factor b/core/generic/standard/standard.factor
index c214e2f9990c4e2d5fe3aabc180496ffff69eec6..0d1a4775ec2bf9e5a3d916a20ba14df486f66e96 100644 (file)
--- 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