From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 2 Dec 2019 03:56:15 +0000 (-0800)
Subject: Fix typo in previous commit.
X-Git-Tag: mit-scheme-pucked-10.1.20~10^2~35
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f810ad1c6423572de56c03e41391f99153f0515f;p=mit-scheme.git

Fix typo in previous commit.
---

diff --git a/src/runtime/char-set.scm b/src/runtime/char-set.scm
index 4546bba94..55536a48a 100644
--- 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 '()))