[uim-commit] r2598 - branches/r5rs/sigscheme

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-12-15 21:21:25 -0800 (Thu, 15 Dec 2005)
New Revision: 2598

Modified:
   branches/r5rs/sigscheme/basecport.c
Log:
* sigscheme/basecport.c
  - (basecport_close): Fix leak


Modified: branches/r5rs/sigscheme/basecport.c
===================================================================
--- branches/r5rs/sigscheme/basecport.c	2005-12-16 05:04:02 UTC (rev 2597)
+++ branches/r5rs/sigscheme/basecport.c	2005-12-16 05:21:25 UTC (rev 2598)
@@ -143,7 +143,12 @@
 static int
 basecport_close(ScmBaseCharPort *port)
 {
-    return SCM_BYTEPORT_CLOSE(port->bport);
+    int err;
+
+    err = SCM_BYTEPORT_CLOSE(port->bport);
+    free(port);
+
+    return err;
 }
 
 static const char *