patch to MrEd menu system from Danny

svn: r7805
This commit is contained in:
Matthew Flatt 2007-11-21 19:59:51 +00:00
parent da32b77d55
commit 246c14c833

View File

@ -64,8 +64,8 @@
(ormap
(lambda (i)
(let* ([data (send (mred->wx i) get-menu-data)]
[label (car data)]
[menu (cdr data)])
[label (mcar data)]
[menu (mcdr data)])
(if (regexp-match re label)
(begin
(send menu select this)