From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 6 Nov 2003 00:16:21 +0000 (+0000)
Subject: Delete useless PGSQL-RESULT-STATUS-STRING.
X-Git-Tag: 20090517-FFI~1764
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ca71208cc5078169a7afdfe8ce56a9be2a7a7a6b;p=mit-scheme.git

Delete useless PGSQL-RESULT-STATUS-STRING.
---

diff --git a/v7/src/runtime/pgsql.scm b/v7/src/runtime/pgsql.scm
index b66f0c5cb..ae488022f 100644
--- a/v7/src/runtime/pgsql.scm
+++ b/v7/src/runtime/pgsql.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: pgsql.scm,v 1.2 2003/07/21 00:59:45 cph Exp $
+$Id: pgsql.scm,v 1.3 2003/11/06 00:16:21 cph Exp $
 
 Copyright 2003 Massachusetts Institute of Technology
 
@@ -263,9 +263,6 @@ USA.
 (define (pgsql-result-status result)
   (index->name (pq-result-status (result->handle result)) exec-status))
 
-(define (pgsql-result-status-string result)
-  (pq-res-status (pq-result-status (result->handle result))))
-
 (define (pgsql-field-name result index)
   (pq-field-name (result->handle result) index))
 
diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index e5bbcec9e..e07b429d6 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.466 2003/10/15 17:07:04 cph Exp $
+$Id: runtime.pkg,v 14.467 2003/11/06 00:16:05 cph Exp $
 
 Copyright 1988,1989,1990,1991,1992,1993 Massachusetts Institute of Technology
 Copyright 1994,1995,1996,1997,1998,1999 Massachusetts Institute of Technology
@@ -4688,7 +4688,6 @@ USA.
 	  pgsql-polling-writing
 	  pgsql-result-error-message
 	  pgsql-result-status
-	  pgsql-result-status-string
 	  pgsql-tuples-ok
 	  poll-pgsql-conn
 	  poll-pgsql-reset))
\ No newline at end of file