From db76be14208ea7df979b38a85b9e0d9e046fe0ff Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Thu, 12 Jul 2012 14:46:25 -0700 Subject: [PATCH] ffi: Fix free to update malloced-aliens. --- src/runtime/ffi.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)) -- 2.25.1