basis: ERROR: changes.

[factor.git] / basis / db / tuples / tuples.factor

diff --git a/basis/db/tuples/tuples.factor b/basis/db/tuples/tuples.factor
index 0bdb2978ee1580285be2f91ad2d8b0757595aa62..ac010e5a6654560310d1a51c51a2cef5a7e80f1d 100644 (file)
--- a/basis/db/tuples/tuples.factor
+++ b/basis/db/tuples/tuples.factor
@@ -78,7 +78,7 @@ ERROR: no-slots-named class seq ;
         [ keys ]
         [ all-slots [ name>> ] map ] bi* diff
     ] 2bi
-    [ drop ] [ no-slots-named ] if-empty ;
+    [ drop ] [ throw-no-slots-named ] if-empty ;
 
 : define-persistent ( class table columns -- )
     pick dupd
@@ -103,7 +103,7 @@ ERROR: no-defined-persistent object ;
 
 : ensure-defined-persistent ( object -- object )
     dup { [ class? ] [ "db-table" word-prop ] } 1&& [
-        no-defined-persistent
+        throw-no-defined-persistent
     ] unless ;
 
 : create-table ( class -- )