basis: ERROR: changes.

[factor.git] / basis / mirrors / mirrors.factor

diff --git a/basis/mirrors/mirrors.factor b/basis/mirrors/mirrors.factor
index 00c6232e76bcadde28173dbfe2d8319ba190baad..9562f0b40686f5b5c18aa0f9d92539509d026eea 100644 (file)
--- a/basis/mirrors/mirrors.factor
+++ b/basis/mirrors/mirrors.factor
@@ -21,8 +21,8 @@ ERROR: read-only-slot slot ;
 
 : check-set-slot ( val slot -- val offset )
     {
-        { [ dup not ] [ no-such-slot ] }
-        { [ dup read-only>> ] [ read-only-slot ] }
+        { [ dup not ] [ throw-no-such-slot ] }
+        { [ dup read-only>> ] [ throw-read-only-slot ] }
         { [ 2dup class>> instance? not ] [ class>> bad-slot-value ] }
         [ offset>> ]
     } cond ; inline