From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Linas Vepstas Newsgroups: gmane.lisp.guile.user Subject: [PATCH 9/12] Guile-DBD-postgres: Avoid discouraged functions Date: Fri, 19 Sep 2008 09:19:03 -0500 Message-ID: <20080919141903.GI13684@linas.org> References: <3ae3aa420809190645o2fe2b746id80f53c5cb123e5b@mail.gmail.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/signed; micalg=pgp-sha1; protocol="application/pgp-signature"; boundary="uJWb33pM2TcUAXIl" X-Trace: ger.gmane.org 1221834313 9015 80.91.229.12 (19 Sep 2008 14:25:13 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 19 Sep 2008 14:25:13 +0000 (UTC) Cc: Guile User Mailing List To: Maurizio Boriani Original-X-From: guile-user-bounces+guile-user=m.gmane.org@gnu.org Fri Sep 19 16:26:07 2008 Return-path: Envelope-to: guile-user@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1Kggtl-00024C-8Y for guile-user@m.gmane.org; Fri, 19 Sep 2008 16:23:54 +0200 Original-Received: from localhost ([127.0.0.1]:33781 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Kggsi-00036D-Tt for guile-user@m.gmane.org; Fri, 19 Sep 2008 10:22:48 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1KggpD-0001Sc-8y for guile-user@gnu.org; Fri, 19 Sep 2008 10:19:11 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1KggpA-0001SD-VK for guile-user@gnu.org; Fri, 19 Sep 2008 10:19:10 -0400 Original-Received: from [199.232.76.173] (port=57250 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1KggpA-0001SA-Pn for guile-user@gnu.org; Fri, 19 Sep 2008 10:19:08 -0400 Original-Received: from wf-out-1314.google.com ([209.85.200.171]:27538) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1Kggp9-0007BB-0x for guile-user@gnu.org; Fri, 19 Sep 2008 10:19:08 -0400 Original-Received: by wf-out-1314.google.com with SMTP id 28so614333wfc.24 for ; Fri, 19 Sep 2008 07:19:06 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=gamma; h=domainkey-signature:received:received:date:to:cc:subject:message-id :references:mime-version:content-type:content-disposition :in-reply-to:user-agent:from; bh=S5LQDnN/p5t4qIH78POu1YGKaxnBqGehi7qnPxZsjIE=; b=hG/Y5CrjwrXZzjY7vDr9WHxJdVX9QJUyLG6ZBlh7q/GiW6mzBrNmZuXFWYjmIfyAuw 7wVrN+zwosqu2n8BcQsMLeOlb3zWPrUOLczvHem2kQtRxeWZMn/WFYvjvUoIRjWqpc22 5JrCkFwaNHHAvnjvIigmp1kyRGlJ8OVef6CLc= DomainKey-Signature: a=rsa-sha1; c=nofws; d=gmail.com; s=gamma; h=date:to:cc:subject:message-id:references:mime-version:content-type :content-disposition:in-reply-to:user-agent:from; b=MewdZFo6GQH8GgaHID4DvWzvRa9yJb5u7D8f1kIFiwvjl0r5D82wf97t53PLEi8tRu 0BOU2KPuJGlgetMK2XAvUgiYKRvTfh0CWictKF1vQSpmNZ2420GOv7edyZDwfkzvHZDJ KKmpYeoUcgA/+0S+mSeVq6/5BO6a6ZaTvtnbI= Original-Received: by 10.141.3.17 with SMTP id f17mr67002rvi.180.1221833946070; Fri, 19 Sep 2008 07:19:06 -0700 (PDT) Original-Received: from linas.org ( [67.100.217.179]) by mx.google.com with ESMTPS id 4sm1127174yxd.2.2008.09.19.07.19.05 (version=TLSv1/SSLv3 cipher=RC4-MD5); Fri, 19 Sep 2008 07:19:05 -0700 (PDT) Content-Disposition: inline In-Reply-To: <3ae3aa420809190645o2fe2b746id80f53c5cb123e5b@mail.gmail.com> User-Agent: Mutt/1.5.15+20070412 (2007-04-11) X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.6 (newer, 2) X-BeenThere: guile-user@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: General Guile related discussions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: guile-user-bounces+guile-user=m.gmane.org@gnu.org Errors-To: guile-user-bounces+guile-user=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.user:6792 Archived-At: --uJWb33pM2TcUAXIl Content-Type: text/plain; charset=us-ascii Content-Disposition: inline Don't use functions from the guile "discouraged" header. Signed-off-by: Linas Vepstas --- src/guile-dbd-postgresql.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) Index: guile-dbd-postgresql-2.0.0/src/guile-dbd-postgresql.c =================================================================== --- guile-dbd-postgresql-2.0.0.orig/src/guile-dbd-postgresql.c 2008-09-15 10:45:02.000000000 -0500 +++ guile-dbd-postgresql-2.0.0/src/guile-dbd-postgresql.c 2008-09-15 13:24:54.000000000 -0500 @@ -316,7 +316,7 @@ __postgresql_getrow_g_db_handle(gdbi_db_ { value_str = (char*) strndup(PQgetvalue(pgsqlP->res,pgsqlP->lget,f), PQgetlength(pgsqlP->res,pgsqlP->lget,f)); - value = scm_int2num(atoi(value_str)); + value = scm_from_long(atoi(value_str)); } else if (type == 700 || type == 701 ) --uJWb33pM2TcUAXIl Content-Type: application/pgp-signature; name="signature.asc" Content-Description: Digital signature Content-Disposition: inline -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.6 (GNU/Linux) iQEVAwUBSNO01oSDRXfAOJJBAQKa6QgAvJcdgIlqbuSFjRfK869EEsV9RUzuZ3cX exLOVNiy7bHk4RdYrYsUpidFBrhzXSWeY34r9JHER914VIXf/T/lJoTqnCLo8kMB j6qPRePCkbqy1M+NaCO3TqEWkIPfvRKeHCwBN6SawW70DpAucCdNygybXMOzuD2t Ri6DIqxejkx44BhDHP/wbCZML5XRcGdv50HN/XlxpdqIDR2xCHgRakV8SvrXsYgn HTr8psFZZc5KYDQ5EA68eHTTHDc7e1fSBf/YfjqNiyCem8KKoPiXcm3VslVGKkdn KlkuYLn1nhrzx7GO3BkNoun+UOsn5W7NtvTA2L1J6rpIwraxYkloDA== =bUrh -----END PGP SIGNATURE----- --uJWb33pM2TcUAXIl--