From e85c6349f737f5fa86fa9a83a611a37732554d27 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 11 Nov 2003 04:46:43 +0000
Subject: [PATCH] Implement PGSQL-CONN-OPEN?.

---
 v7/src/runtime/pgsql.scm   | 6 +++++-
 v7/src/runtime/runtime.pkg | 3 ++-
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/pgsql.scm b/v7/src/runtime/pgsql.scm
index 2f13e3a33..e6297c9a8 100644
--- a/v7/src/runtime/pgsql.scm
+++ b/v7/src/runtime/pgsql.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: pgsql.scm,v 1.7 2003/11/10 21:46:20 cph Exp $
+$Id: pgsql.scm,v 1.8 2003/11/11 04:46:39 cph Exp $
 
 Copyright 2003 Massachusetts Institute of Technology
 
@@ -240,6 +240,10 @@ USA.
 		    (set! conn)
 		    unspecific))))
 
+(define (pgsql-conn-open? connection)
+  (guarantee-connection connection 'PGSQL-CONN-OPEN?)
+  (if (connection-handle connection) #t #f))
+
 (define-integrable (connection->handle connection)
   (guarantee-valid-connection connection 'CONNECTION->HANDLE))
 
diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 1b0a4500b..0e2e30162 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.468 2003/11/06 04:16:50 cph Exp $
+$Id: runtime.pkg,v 14.469 2003/11/11 04:46:43 cph Exp $
 
 Copyright 1988,1989,1990,1991,1992,1993 Massachusetts Institute of Technology
 Copyright 1994,1995,1996,1997,1998,1999 Massachusetts Institute of Technology
@@ -4660,6 +4660,7 @@ USA.
 	  pgsql-conn-db
 	  pgsql-conn-error-message
 	  pgsql-conn-host
+	  pgsql-conn-open?
 	  pgsql-conn-options
 	  pgsql-conn-pass
 	  pgsql-conn-port
-- 
2.25.1