From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 1 Dec 2019 00:12:36 +0000 (+0000)
Subject: Fix wrong number of arguments.
X-Git-Tag: mit-scheme-pucked-10.1.20~10^2~36
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=28b7a38786d12e3ad967cc15da0966cc0d8ce006;p=mit-scheme.git

Fix wrong number of arguments.
---

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