don't intuit seq succ/pred when endpoint is Code

S03-sequence/nonnumeric.t

@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 39;
+plan 40;
 
 # L<S03/List infix precedence/'C<.succ> is assumed'>
 
@@ -104,6 +104,16 @@ is ('1a', '1b' ... '1e').Str, '1a 1b 1c 1d 1e', 'sequence with strings that star
     is ('.' ... '0').Str, ". / 0",             "mixture";
 }
 
+{
+    my class H {
+	has $.y = 5;
+	method succ { H.new(y => $.y + 1) }
+	method pred { H.new(y => $.y - 1) }
+	method gist { $.y }
+    }
+    is (H.new ... *.y > 10).gist, '5 6 7 8 9 10 11', "intuition does not try to cmp a WhateverCode";
+}
+
 done;
 
 # vim: ft=perl6