basis: ERROR: changes.

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

diff --git a/basis/db/sqlite/sqlite.factor b/basis/db/sqlite/sqlite.factor
index 9005b48f17f5ee7024b2f53aac6501f9f46e64e7..8131e18d3cb86beac70e434ccd22bbd5efa96762 100644 (file)
--- a/basis/db/sqlite/sqlite.factor
+++ b/basis/db/sqlite/sqlite.factor
@@ -100,7 +100,7 @@ ERROR: sqlite-last-id-fail ;
 
 : last-insert-id ( -- id )
     db-connection get handle>> sqlite3_last_insert_rowid
-    dup zero? [ sqlite-last-id-fail ] when ;
+    dup zero? [ throw-sqlite-last-id-fail ] when ;
 
 M: sqlite-db-connection insert-tuple-set-key ( tuple statement -- )
     execute-statement last-insert-id swap set-primary-key ;