From 7f3282bb399a265cb3e720afb91330f14226adc5 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Mon, 3 Nov 2008 01:19:06 -0600 Subject: [PATCH] Better error reporting --- basis/math/partial-dispatch/partial-dispatch.factor | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/basis/math/partial-dispatch/partial-dispatch.factor b/basis/math/partial-dispatch/partial-dispatch.factor index 61678eb088..fd0e910b37 100644 --- a/basis/math/partial-dispatch/partial-dispatch.factor +++ b/basis/math/partial-dispatch/partial-dispatch.factor @@ -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 ;