From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 28 Dec 2004 06:42:25 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~1404
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4961739b5562e8621d18039e59b156c981808e4c;p=mit-scheme.git

Fix typo.
---

diff --git a/v7/src/runtime/pgsql.scm b/v7/src/runtime/pgsql.scm
index 785c89254..5aca155e9 100644
--- a/v7/src/runtime/pgsql.scm
+++ b/v7/src/runtime/pgsql.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: pgsql.scm,v 1.9 2004/11/25 04:00:06 cph Exp $
+$Id: pgsql.scm,v 1.10 2004/12/28 06:42:25 cph Exp $
 
-Copyright 2003 Massachusetts Institute of Technology
+Copyright 2003,2004 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -337,8 +337,8 @@ USA.
 (define-result-accessor n-fields)
 (define-result-accessor cmd-status)
 
-(DEFINE (PGSQL-RESULT-STATUS RESULT)
-  (INDEX->NAME (PQ-RESULT-STATUS (RESULT->HANDLE RESULT)) EXEC-STATUS))
+(define (pgsql-result-status result)
+  (index->name (pq-result-status (result->handle result)) exec-status))
 
 (define (pgsql-clear result)
   (remove-from-gc-finalizer! results result))