.

original commit: 8643ec6090b9a37ac2509bc81552acca0a94f59e
2004-04-02 04:01:40 +00:00 · 2004-04-02 04:01:40 +00:00 · d7dc631c54
commit d7dc631c54
parent f536b8985e
1 changed files with 1 additions and 3 deletions
--- a/collects/tests/mred/item.ss
+++ b/collects/tests/mred/item.ss
@ -21,9 +21,7 @@
 			       100 100))
  (send default-parent-frame show #t))

-(when (with-handlers ([exn:fail? (lambda (x) #f)])
-	 (namespace-variable-binding 'mid?)
-	 mdi?)
+(when (namespace-variable-value 'mdi? #t (lambda () #f))
  (mdi))

 (define make-frame