From 909549fcda4f9989e4da0aeeb65b38ab1d176d95 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 20 Apr 1998 20:49:22 +0000 Subject: [PATCH] updated to new require* macros and procedures original commit: a41947b2f07b9b95a0d9dd1eca5234189c61a01c --- collects/mred/edit.ss | 2 +- collects/mred/keys.ss | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mred/edit.ss b/collects/mred/edit.ss index 45d89302..3f65b5ad 100644 --- a/collects/mred/edit.ss +++ b/collects/mred/edit.ss @@ -994,7 +994,7 @@ (lambda () (let ([frame (get-frame)]) (when frame - ((uq-ivar frame ivar-sym)))))) + ((ivar/proc frame ivar-sym)))))) tag))]) (public [set-anchor diff --git a/collects/mred/keys.ss b/collects/mred/keys.ss index 65199b0f..f834d0f2 100644 --- a/collects/mred/keys.ss +++ b/collects/mred/keys.ss @@ -60,7 +60,7 @@ (if (is-a? p wx:frame%) p (loop (send p get-parent))))]) - ((uq-ivar frame method)) + ((ivar/proc frame method)) #t)))]) (lambda (kmap) (let* ([map (lambda (key func)