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

Better error reporting

db4
Slava Pestov 2008-11-03 01:19:06 -06:00
parent f253e74942
commit 7f3282bb39
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/math/partial-dispatch/partial-dispatch.factor
View File

@ -14,9 +14,11 @@ GENERIC: integer-op-input-classes ( word -- classes )
M: math-partial integer-op-input-classes
"derived-from" word-prop rest ;
ERROR: bad-integer-op word ;
M: word integer-op-input-classes
"input-classes" word-prop
[ "Bug: integer-op-input-classes" throw ] unless* ;
dup "input-classes" word-prop
[ ] [ bad-integer-op ] ?if ;
: generic-variant ( op -- generic-op/f )
dup "derived-from" word-prop [ first ] [ ] ?if ;