From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 8 Jun 2003 04:37:57 +0000 (+0000)
Subject: Change PQ-MAKE-EMPTY-PG-RESULT to accept weak pair to return result
X-Git-Tag: 20090517-FFI~1890
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e111a0f70ae0c7b0c58532351e59b678cf426712;p=mit-scheme.git

Change PQ-MAKE-EMPTY-PG-RESULT to accept weak pair to return result
in.
---

diff --git a/v7/src/microcode/prpgsql.c b/v7/src/microcode/prpgsql.c
index dbd86bb59..cabc712d2 100644
--- a/v7/src/microcode/prpgsql.c
+++ b/v7/src/microcode/prpgsql.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: prpgsql.c,v 1.3 2003/06/06 23:36:12 cph Exp $
+$Id: prpgsql.c,v 1.4 2003/06/08 04:37:57 cph Exp $
 
 Copyright 2003 Massachusetts Institute of Technology
 
@@ -126,12 +126,14 @@ DEFINE_PRIMITIVE ("PQ-EXEC", Prim_pq_exec, 3, 3, 0)
 }
 
 DEFINE_PRIMITIVE ("PQ-MAKE-EMPTY-PG-RESULT", Prim_pq_make_empty_pg_result,
-		  2, 2, 0)
+		  3, 3, 0)
 {
-  PRIMITIVE_HEADER (2);
-  PRIMITIVE_RETURN
-    (ANY_TO_UINT (PQmakeEmptyPGresult ((ARG_CONN (1)),
-				       (ARG_EXEC_STATUS (1)))));
+  PRIMITIVE_HEADER (3);
+  CHECK_ARG (3, WEAK_PAIR_P);
+  SET_PAIR_CDR ((ARG_REF (3)),
+		(ANY_TO_UINT (PQmakeEmptyPGresult ((ARG_CONN (1)),
+						   (ARG_EXEC_STATUS (1))))));
+  PRIMITIVE_RETURN (UNSPECIFIC);
 }
 
 DEFINE_PRIMITIVE ("PQ-RESULT-STATUS", Prim_pq_result_status, 1, 1, 0)