From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 21 Jul 2003 00:54:46 +0000 (+0000)
Subject: Fix incorrect signature of PQ-RES-STATUS.
X-Git-Tag: 20090517-FFI~1870
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ede403660ae5b49215f92ccc81564defcd3131b1;p=mit-scheme.git

Fix incorrect signature of PQ-RES-STATUS.
---

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)