no message

original commit: 13ff4cd604078dbaac6a6556ebce8f931d2dfba2
2001-04-23 00:42:44 +00:00 · 2001-04-23 00:42:44 +00:00 · 757b3423a0
commit 757b3423a0
parent b402b6cff8
1 changed files with 1 additions and 1 deletions
--- a/collects/framework/private/editor.ss
+++ b/collects/framework/private/editor.ss
@ -156,7 +156,7 @@
 	      [(t) (run-after-edit-sequence t #f)]
 	      [(t sym)
 	       (unless (and (procedure? t)
-			    (= 0 (arity t)))
+			    (= 0 (procedure-arity t)))
 		 (error 'media-buffer::run-after-edit-sequence
 			"expected procedure of arity zero, got: ~s~n" t))
 	       (unless (or (symbol? sym) (not sym))