typo

svn: r2739
2006-04-23 00:53:23 +00:00 · 2006-04-23 00:53:23 +00:00 · 4edd6f5b4f
commit 4edd6f5b4f
parent 9e06bf60d6
1 changed files with 1 additions and 1 deletions
--- 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