change ERROR: words from throw-foo back to foo.

[factor.git] / core / slots / slots.factor

diff --git a/core/slots/slots.factor b/core/slots/slots.factor
index 22d3e1068e3c5c1aa79d009280834c9c55c155bf..e3f6ea995bea0d863bc354005b571b4c1440387e 100644 (file)
--- a/core/slots/slots.factor
+++ b/core/slots/slots.factor
@@ -83,7 +83,7 @@ M: object instance-check-quot
     [
         \ dup ,
         [ predicate-def % ]
-        [ [ throw-bad-slot-value ] curry , ] bi
+        [ [ bad-slot-value ] curry , ] bi
         \ unless ,
     ] [ ] make ;
 
@@ -241,7 +241,7 @@ ERROR: bad-slot-attribute key ;
         unclip {
             { initial: [ [ first >>initial ] [ rest ] bi ] }
             { read-only [ [ t >>read-only ] dip ] }
-            [ throw-bad-slot-attribute ]
+            [ bad-slot-attribute ]
         } case
     ] unless ;