improve error message

2014-10-21 11:05:20 -04:00 · 2014-10-21 11:05:20 -04:00 · 3568db5f4f
commit 3568db5f4f
parent 4624a99420
1 changed files with 1 additions and 1 deletions
--- a/pkgs/htdp-pkgs/htdp-lib/2htdp/universe.rkt
+++ b/pkgs/htdp-pkgs/htdp-lib/2htdp/universe.rkt
@ -264,7 +264,7 @@
            [dom (syntax->list #'(clause ...))])
       (cond
         [(and (not (contains-clause? #'to-draw dom)) (not (contains-clause? #'on-draw dom)))
-          (raise-syntax-error #f "expects a [to-draw handler] clause, missing" stx)]
+          (raise-syntax-error #f "missing [to-draw renderer] or [on-draw renderer] clause" stx)]
         [else
 	   (syntax-property 
 	     (stepper-syntax-property