typo

svn: r2739 original commit: 4edd6f5b4f0e366bd3b296fd7e1975a7188f61b2
2006-04-23 00:53:23 +00:00 · 2006-04-23 00:53:23 +00:00 · b9cd082e12
commit b9cd082e12
parent 47790cd8a4
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