From f9bf318a9086be5b17a615a9c060b574bbba701c Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Tue, 5 Apr 2011 20:16:14 -0400 Subject: [PATCH] Fix `ormap' error messages in HTDP languages. --- collects/lang/private/and-or-map.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/lang/private/and-or-map.rkt b/collects/lang/private/and-or-map.rkt index c32604e64b..2d79f555c8 100644 --- a/collects/lang/private/and-or-map.rkt +++ b/collects/lang/private/and-or-map.rkt @@ -16,9 +16,9 @@ (define-teach intermediate ormap (lambda (f l) (unless (and (procedure? f) (procedure-arity-includes? f 1)) - (hocheck 'andmap "first argument must be a that accepts one argument, given ~e" f)) + (hocheck 'ormap "first argument must be a that accepts one argument, given ~e" f)) (unless (beginner-list? l) - (hocheck 'andmap "second argument must be of type , given ~e" l)) + (hocheck 'ormap "second argument must be of type , given ~e" l)) (let loop ([l l]) (if (null? l) #f (beginner-or (f (car l)) (loop (cdr l)))))))