From 8400ea21b92f7af84b18f7dcb6e46de2cf4a2d3d Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 4 Jun 2008 11:45:41 +0000
Subject: [PATCH] update MrEd gc test for v4

svn: r10122

original commit: 6aa847ca67633d24399d0ab6246c4d7b8fa87d50
---
 collects/tests/mred/mem.ss | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/collects/tests/mred/mem.ss b/collects/tests/mred/mem.ss
index 4d0f8150..8719899a 100644
--- a/collects/tests/mred/mem.ss
+++ b/collects/tests/mred/mem.ss
@@ -39,7 +39,7 @@
 (define permanent-ready? #f)
 (define mb-lock (make-semaphore 1))
 
-(define htw (make-hash-table 'weak))
+(define htw (make-weak-hasheq))
 
 (send sub-collect-frame show #t)
 
@@ -95,7 +95,7 @@
 		    (sequence (apply super-init args)))))
 		start 100))
 
-	(if frame?
+	(when frame?
 	    (let* ([f (remember tag
 	    	       (make-object (if (even? n)
 				       frame% 
@@ -121,7 +121,7 @@
 	      (remember tag (make-object button% "two" p cb))
 	      (send f show #f)))
 
-	(if subwindows?
+	(when subwindows?
 	    (let ([p (make-object (get-panel% n) sub-collect-frame)]
 		  [cv (make-object canvas% sub-collect-frame)]
 		  [add-objects
@@ -152,7 +152,7 @@
 	      (send sub-collect-frame delete-child p)
 	      (send sub-collect-frame delete-child cv)))
 
-	(if (and edit? insert?)
+	(when (and edit? insert?)
 	    (let ([e edit])
 	      (when load-file?
 		(send e load-file (build-path source-dir "mem.ss")))
@@ -203,7 +203,7 @@
 	      (remember (cons tag m) (make-object point% n m))
 	      (let ([br (make-object brush%)])
 		(remember (cons tag m) br)
-		(hash-table-put! htw br 'ok))
+		(hash-set! htw br 'ok))
 	      (remember (cons tag m) (make-object pen%))
 	      (loop (sub1 m)))))
 	
@@ -228,8 +228,8 @@
 (define (still)
   (map (lambda (x)
 	 (let ([v (weak-box-value (cdr x))])
-	   (if v
-	       (printf "~s ~s~n" (car x) v))))
+	   (when v
+             (printf "~s ~s~n" (car x) v))))
        allocated)
   (void))