From 28b7a38786d12e3ad967cc15da0966cc0d8ce006 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sun, 1 Dec 2019 00:12:36 +0000 Subject: [PATCH] Fix wrong number of arguments. --- src/runtime/char-set.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 '())) -- 2.25.1