From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Thu, 12 Jul 2012 21:46:25 +0000 (-0700)
Subject: ffi: Fix free to update malloced-aliens.
X-Git-Tag: release-9.2.0~242
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=db76be14208ea7df979b38a85b9e0d9e046fe0ff;p=mit-scheme.git

ffi: Fix free to update malloced-aliens.
---

diff --git a/src/runtime/ffi.scm b/src/runtime/ffi.scm
index a384257a1..50f0d9e3f 100644
--- a/src/runtime/ffi.scm
+++ b/src/runtime/ffi.scm
@@ -394,7 +394,9 @@ USA.
 		     (begin
 		       (alien-null! alien)
 		       ((ucode-primitive c-free 1) copy)
-		       (alien-null! copy))))))))))
+		       (alien-null! copy)
+		       (set! malloced-aliens
+			     (delq! weak malloced-aliens)))))))))))
 
 (define (weak-assq obj alist)
   (let loop ((alist alist))