patch to MrEd menu system from Danny

svn: r7805 original commit: 246c14c833ef823155eccfca640b32263d1b91df
2007-11-21 19:59:51 +00:00 · 2007-11-21 19:59:51 +00:00 · fcc9e5f98a
commit fcc9e5f98a
parent db58217625
1 changed files with 2 additions and 2 deletions
--- a/collects/mred/private/wxmenu.ss
+++ b/collects/mred/private/wxmenu.ss
@ -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)