From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Aaron VanDevender Newsgroups: gmane.lisp.guile.user Subject: freeing fports Date: Wed, 27 Aug 2003 00:56:21 -0400 Sender: guile-user-bounces+guile-user=m.gmane.org@gnu.org Message-ID: <20030827005621.T1574@netdot.net> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1061960284 313 80.91.224.253 (27 Aug 2003 04:58:04 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Wed, 27 Aug 2003 04:58:04 +0000 (UTC) Original-X-From: guile-user-bounces+guile-user=m.gmane.org@gnu.org Wed Aug 27 06:58:02 2003 Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 19rsNe-0000CO-00 for ; Wed, 27 Aug 2003 06:58:02 +0200 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.22) id 19rsNR-0005N9-5l for guile-user@m.gmane.org; Wed, 27 Aug 2003 00:57:49 -0400 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.22) id 19rsM7-0005D1-Rs for guile-user@gnu.org; Wed, 27 Aug 2003 00:56:27 -0400 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.22) id 19rsM1-00055d-BN for guile-user@gnu.org; Wed, 27 Aug 2003 00:56:21 -0400 Original-Received: from [18.228.0.154] (helo=roxanne.bos.netdot.net) by monty-python.gnu.org with esmtp (Exim 4.22) id 19rsM0-000527-UM for guile-user@gnu.org; Wed, 27 Aug 2003 00:56:20 -0400 Original-Received: (from sig@localhost) by roxanne.bos.netdot.net (8.11.6/8.11.6) id h7R4uL522033 for guile-user@gnu.org; Wed, 27 Aug 2003 00:56:21 -0400 Original-To: guile-user@gnu.org Content-Disposition: inline User-Agent: Mutt/1.2.5.1i X-BeenThere: guile-user@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: General Guile related discussions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-user-bounces+guile-user=m.gmane.org@gnu.org Xref: main.gmane.org gmane.lisp.guile.user:2202 X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.user:2202 I noticed that the fport free function doesn't return how much it frees. This patch should take care of that. --- libguile.old/fports.c 2003-08-26 23:35:34.000000000 -0500 +++ libguile/fports.c 2003-08-26 23:47:23.000000000 -0500 @@ -827,8 +827,11 @@ static size_t fport_free (SCM port) { + size_t size; + scm_t_port *pt = SCM_PTAB_ENTRY (port); + size = pt->read_buf_size + pt->write_buf_size + sizeof(scm_t_fport); fport_close (port); - return 0; + return size; } static scm_t_bits _______________________________________________ Guile-user mailing list Guile-user@gnu.org http://mail.gnu.org/mailman/listinfo/guile-user