Fix typo in previous commit.

diff --git a/src/runtime/char-set.scm b/src/runtime/char-set.scm
index 4546bba94913470e1106803ebdae241b16e1e4b8..55536a48a90e4cc8b84177958ec08c9287247818 100644 (file)
--- a/src/runtime/char-set.scm
+++ b/src/runtime/char-set.scm
@@ -508,15 +508,14 @@ USA.
        (fix:= 0 (bytevector-length (%char-set-high cs)))))
 
 (define (char-set-hash char-set #!optional modulus)
-  (let ((get-hash
-        (lambda ()
-          (primitive-object-hash-2 (%char-set-low char-set)
-                                   (%char-set-high char-set)))))
+  (let ((hash
+        (primitive-object-hash-2 (%char-set-low char-set)
+                                 (%char-set-high char-set))))
     (if (default-object? modulus)
-       (get-hash)
+       hash
        (begin
          (guarantee positive-fixnum? modulus 'char-set-hash)
-         (fix:remainder (get-hash) modulus)))))
+         (fix:remainder hash modulus)))))
 
 (define (char-set->code-points char-set)
   (let loop ((ilist (%char-set->inversion-list char-set)) (ranges '()))