Fix wrong number of arguments.

diff --git a/src/runtime/char-set.scm b/src/runtime/char-set.scm
index 5952592fa6e13cd581a0de6a4a06788569f3a3fc..4546bba94913470e1106803ebdae241b16e1e4b8 100644 (file)
--- a/src/runtime/char-set.scm
+++ b/src/runtime/char-set.scm
@@ -513,10 +513,10 @@ USA.
           (primitive-object-hash-2 (%char-set-low char-set)
                                    (%char-set-high char-set)))))
     (if (default-object? modulus)
-       (get-hash char-set)
+       (get-hash)
        (begin
          (guarantee positive-fixnum? modulus 'char-set-hash)
-         (fix:remainder (get-hash char-set) modulus)))))
+         (fix:remainder (get-hash) modulus)))))
 
 (define (char-set->code-points char-set)
   (let loop ((ilist (%char-set->inversion-list char-set)) (ranges '()))