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

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

db4
John Benediktsson 2015-08-05 19:10:58 -07:00
parent 2a3427bdff
commit 9aab1c87b4
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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