From ede403660ae5b49215f92ccc81564defcd3131b1 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 21 Jul 2003 00:54:46 +0000
Subject: [PATCH] Fix incorrect signature of PQ-RES-STATUS.

---
 v7/src/microcode/prpgsql.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/microcode/prpgsql.c b/v7/src/microcode/prpgsql.c
index cabc712d2..5832cfc9c 100644
--- a/v7/src/microcode/prpgsql.c
+++ b/v7/src/microcode/prpgsql.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: prpgsql.c,v 1.4 2003/06/08 04:37:57 cph Exp $
+$Id: prpgsql.c,v 1.5 2003/07/21 00:54:46 cph Exp $
 
 Copyright 2003 Massachusetts Institute of Technology
 
@@ -140,7 +140,7 @@ DEFINE_PRIMITIVE ("PQ-RESULT-STATUS", Prim_pq_result_status, 1, 1, 0)
   RESULT_TO_UINT (PQresultStatus)
 
 DEFINE_PRIMITIVE ("PQ-RES-STATUS", Prim_pq_res_status, 1, 1, 0)
-  ONE_ARG (ARG_EXEC_STATUS, PQresStatus, ANY_TO_UINT)
+  ONE_ARG (ARG_EXEC_STATUS, PQresStatus, char_pointer_to_string)
 
 DEFINE_PRIMITIVE ("PQ-RESULT-ERROR-MESSAGE", Prim_pq_result_error_message,
 		  1, 1, 0)
-- 
2.25.1