Guile-pg modules bug fix.

[Ian Grant]

Message to David Pirotte.  Your e-mail is not routable, so I hope you are 
watching this list.

Please try the version of guile-pg from anonymous CVS:

             http://sourceforge.net/cvs/?group_id=2321

Or change your postgres.scm file as follows and let me know if it works.

;; $Id: postgres.scm.in,v 1.3 2000/05/31 11:59:07 iang Exp $
;;    Guile-pg - A Guile interface to PostgreSQL
;;    Copyright (C) 1999,2000 The Free Software Foundation
;;
;;    This program is free software; you can redistribute it and/or modify
;;    it under the terms of the GNU General Public License as published by
;;    the Free Software Foundation; either version 2 of the License, or
;;    (at your option) any later version.
;;
;;    This program is distributed in the hope that it will be useful,
;;    but WITHOUT ANY WARRANTY; without even the implied warranty of
;;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;    GNU General Public License for more details.
;;
;;    You should have received a copy of the GNU General Public License
;;    along with this program; if not, write to the Free Software
;;    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
;;
;;    Guile-pg was written by Ian Grant <address@hidden>

;; Load the C interface functions

(define-module (database postgres))

(if (not (defined? 'pg-guile-pg-loaded)) ;; Unless already loaded (static) ...
  (dynamic-call "init_postgres" (dynamic-link "libpostgres.so")))

(define-public (pg-guile-pg-module-config-stamp) "Thu Mar  8 14:15:57 GMT 
2001")
(define-public (pg-guile-pg-module-version) "0.08")
(define-public (pg-guile-pg-module-rcsid)
               "$Id: postgres.scm.in,v 1.3 2000/05/31 11:59:07 iang Exp $")
(export pg-guile-pg-loaded)
(export pg-guile-pg-rcsid)
(export pg-connectdb)
(export pg-reset)
(export pg-get-client-data)
(export pg-set-client-data!)
(export pg-exec)
(export pg-error-message)
(export pg-get-db)
(export pg-get-user)
(export pg-get-pass)
(export pg-get-host)
(export pg-get-port)
(export pg-get-tty)
(export pg-get-options)
(export pg-get-connection)
(export pg-backend-pid)
(export pg-result-status)
(export pg-ntuples)
(export pg-nfields)
(export pg-cmdtuples)
(export pg-oid-status)
(export pg-oid-value)
(export pg-fname)
(export pg-fnumber)
(export pg-ftype)
(export pg-fsize)
(export pg-getvalue)
(export pg-getlength)
(export pg-getisnull)
(export pg-binary-tuples?)
(export pg-fmod)
(export pg-guile-pg-version)
(export pg-getline)
(export pg-putline)
(export pg-endcopy)
(export pg-trace)
(export pg-untrace)

(export pg-lo-creat)
(export pg-lo-open)
(export pg-lo-unlink)
(export pg-lo-get-connection)
(export pg-lo-get-oid)
(export pg-lo-tell)
(export pg-lo-seek)
(export pg-lo-read)
(export pg-lo-import)
(export pg-lo-export)

-- 
Ian Grant, Computer Lab., New Museums Site, Pembroke Street, Cambridge
Phone: +44 1223 334420          Personal e-mail: iang at pobox dot com