summaryrefslogtreecommitdiff
path: root/databases/guile-pg/patches/patch-aa
blob: d393ede970f9363d5f3dd158c78029f4326df982 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
$NetBSD: patch-aa,v 1.2 2004/12/03 13:41:30 wiz Exp $

--- libpostgres_lo.c.orig	2004-11-20 12:55:38.000000000 -0500
+++ libpostgres_lo.c
@@ -247,7 +247,7 @@ lob_mklobport (SCM conn, Oid oid, int al
     }
   pt->write_end = pt->write_buf + pt->write_buf_size;
 
-  SCM_SETCAR (port, gh_car (port) & ~SCM_BUF0);
+  SCM_SETCAR (port, SCM_CELL_WORD_0 (port) & ~SCM_BUF0);
 
   SCM_ALLOW_INTS;
 
@@ -522,7 +522,7 @@ lob_write (SCM port, const void *data, s
             lob_flush (port);
         }
       /* handle line buffering.  */
-      if ((gh_car (port) & SCM_BUFLINE)
+      if ((SCM_CELL_WORD_0 (port) & SCM_BUFLINE)
           && memchr (data, '\n', size))
         lob_flush (port);
     }