Make with-postgresql-connection work with multiple values

guix-data-service/database.scm

@@ -65,9 +65,12 @@
     (with-throw-handler
       #t
       (lambda ()
-        (let ((result (f conn)))
+        (call-with-values
-          (pg-conn-finish conn)
+            (lambda ()
-          result))
+              (f conn))
+          (lambda vals
+            (pg-conn-finish conn)
+            (apply values vals))))
       (lambda (key . args)
         (pg-conn-finish conn)))))