From 3568db5f4f9f3888de5410a6f5918a19453c6031 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Tue, 21 Oct 2014 11:05:20 -0400 Subject: [PATCH] improve error message --- pkgs/htdp-pkgs/htdp-lib/2htdp/universe.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkgs/htdp-pkgs/htdp-lib/2htdp/universe.rkt b/pkgs/htdp-pkgs/htdp-lib/2htdp/universe.rkt index 51200c5f13..8d2fc50754 100644 --- 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