From eeb7cf508f22d3147674da9d21ed2b48c23c2234 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Thu, 13 Aug 2015 00:18:29 -0700 Subject: [PATCH] db.sqlite: fix ERROR: --- basis/db/sqlite/lib/lib.factor | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/basis/db/sqlite/lib/lib.factor b/basis/db/sqlite/lib/lib.factor index defc730884..35ebfb12f7 100644 --- a/basis/db/sqlite/lib/lib.factor +++ b/basis/db/sqlite/lib/lib.factor @@ -11,18 +11,18 @@ IN: db.sqlite.lib ERROR: sqlite-error < db-error n string ; ERROR: sqlite-sql-error < sql-error n string ; -: throw-sqlite-error ( n -- * ) - dup sqlite-error-messages nth sqlite-error ; +: sqlite-other-error ( n -- * ) + dup sqlite-error-messages nth throw-sqlite-error ; : sqlite-statement-error ( -- * ) SQLITE_ERROR - db-connection get handle>> sqlite3_errmsg sqlite-sql-error ; + db-connection get handle>> sqlite3_errmsg throw-sqlite-sql-error ; : sqlite-check-result ( n -- ) { { SQLITE_OK [ ] } { SQLITE_ERROR [ sqlite-statement-error ] } - [ throw-sqlite-error ] + [ sqlite-other-error ] } case ; : sqlite-open ( path -- db )