From 7652bc22678e3d016c00f2cbbd2e31ba81ecabd1 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 13 Feb 1998 18:23:35 +0000
Subject: [PATCH] updated

original commit: cd85b42f0726b05433790901d50bbc624b53d6f0
---
 collects/tests/mred/mem.ss | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/collects/tests/mred/mem.ss b/collects/tests/mred/mem.ss
index 7ebc1a11..dd399c83 100644
--- a/collects/tests/mred/mem.ss
+++ b/collects/tests/mred/mem.ss
@@ -1,4 +1,6 @@
 
+; run with mred -u -- -f mem.ss
+
 (define source-dir (current-load-relative-directory))
 
 (define num-times 12)
@@ -46,9 +48,9 @@
   (collect-garbage)
   (collect-garbage)
   (printf "Thread: ~s Cycle: ~s~n" id n)
-  (dump-object-stats)
-  (if (and dump-stats? (= id 1))
-      (dump-memory-stats))
+  ; (dump-object-stats)
+  ; (if (and dump-stats? (= id 1))
+  ;    (dump-memory-stats))
   (unless (zero? n)
     (let ([tag (cons id n)])
       (let* ([f (if edit? (remember tag (make-object frame%)))]
@@ -234,8 +236,8 @@
 	(still)))
 
 (define mred:startup
-  (let ([old-mred:startup mred:startup])
-    (lambda args
-      (send mred:the-frame-group set-empty-callback (lambda () #t))
-      (do-test)
-      (apply old-mred:startup args))))
+  (lambda args
+    ; (send mred:the-frame-group set-empty-callback (lambda () #t))
+    (do-test)
+    (make-object mred:console-frame%)))
+