From 4edd6f5b4f0e366bd3b296fd7e1975a7188f61b2 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sun, 23 Apr 2006 00:53:23 +0000 Subject: [PATCH] typo svn: r2739 --- collects/mzlib/foreign.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mzlib/foreign.ss b/collects/mzlib/foreign.ss index c0df3efd87..374de69eb1 100644 --- a/collects/mzlib/foreign.ss +++ b/collects/mzlib/foreign.ss @@ -770,7 +770,7 @@ (cond [(null? xs) n] [(assq (car xs) symbols->integers) => (lambda (x) (loop (cdr xs) (bitwise-ior (cadr x) n)))] - [else (raise-type-error s->c (format "~a" (or name "bitmaks")) + [else (raise-type-error s->c (format "~a" (or name "bitmask")) symbols)])))) (lambda (n) (if (zero? n) ; probably common