From c08ebddadb77f4658b28aa7246b45977b6060d30 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 2 Nov 2012 15:17:16 -0600 Subject: [PATCH] error message repair original commit: ad703025c5d2c0d254f708bad9e854ce4894907b --- collects/mred/private/mrmenu.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mred/private/mrmenu.rkt b/collects/mred/private/mrmenu.rkt index 4523958c..967c7cf7 100644 --- a/collects/mred/private/mrmenu.rkt +++ b/collects/mred/private/mrmenu.rkt @@ -465,6 +465,6 @@ (define (menu-or-bar-parent who p) (unless (or (is-a? p internal-menu<%>) (is-a? p menu-bar%)) (unless (is-a? p menu-item-container<%>) - (raise-arguments-error (constructor-name who) "(is-a?/c menu-item-container<%>)" p)) + (raise-argument-error (constructor-name who) "(is-a?/c menu-item-container<%>)" p)) (raise-arguments-error (who->name who) "invalid parent;\n given parent is not an instance of a built-in menu item container class" "given parent" p)))