From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Wed, 19 Dec 2012 00:45:09 +0000 (-0700)
Subject: Fixed the Gtk tests to access the final malloced-aliens list.
X-Git-Tag: mit-scheme-pucked-9.2.12~543
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2dffe052005e46b48706182a2eebe82f27246ec4;p=mit-scheme.git

Fixed the Gtk tests to access the final malloced-aliens list.
---

diff --git a/tests/gtk/test-gtk.scm b/tests/gtk/test-gtk.scm
index bd49f5f29..77160c8db 100644
--- a/tests/gtk/test-gtk.scm
+++ b/tests/gtk/test-gtk.scm
@@ -43,7 +43,8 @@ USA.
     (set! await-closed-demos (access await-closed-demos new))
     (set! registered-callback-count
 	  (access registered-callback-count ffi))
-    (set! malloced-aliens (access malloced-aliens ffi)))
+    (set! malloced-aliens (named-lambda (malloced-aliens)
+			    (access malloced-aliens ffi))))
 
   (define-test 'gio-copy
     (let ((cwd (directory-pathname (current-load-pathname))))
@@ -79,9 +80,9 @@ USA.
 
   (define-test 'gtk-demos.mallocs
     (lambda ()
-      (assert-= (length malloced-aliens)
+      (assert-= (length (malloced-aliens))
 		0
-		'EXPRESSION '(LENGTH MALLOCED-ALIENS)))))
+		'EXPRESSION '(LENGTH (MALLOCED-ALIENS))))))
 
 (if (not (warn-errors? (lambda () (load-option 'gtk))))
     (main))
\ No newline at end of file