>From 76735427c25118ce4324d286ec6a524ced8bd99d Mon Sep 17 00:00:00 2001 From: Caleb Ristvedt
Date: Sat, 3 Jun 2017 02:38:53 -0500 Subject: [PATCH 2/7] fixup! Implement prototype register-path in scheme --- guix/sql.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/guix/sql.scm b/guix/sql.scm index ae4a1d27d..9e3815401 100644 --- a/guix/sql.scm +++ b/guix/sql.scm @@ -10,13 +10,13 @@ ;; This really belongs in guile-sqlite3, as can be seen from the @@s. (define sqlite-last-insert-rowid - "Gives the row id of the last inserted row in DB." (let ((last-rowid (pointer->procedure int (dynamic-func "sqlite3_last_insert_rowid" (@@ (sqlite3) libsqlite3)) (list '*)))) (lambda (db) + "Gives the row id of the last inserted row in DB." (last-rowid ((@@ (sqlite3) db-pointer) db))))) -- 2.13.0