From 4961739b5562e8621d18039e59b156c981808e4c Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 28 Dec 2004 06:42:25 +0000 Subject: [PATCH] Fix typo. --- v7/src/runtime/pgsql.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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)) -- 2.25.1