From f810ad1c6423572de56c03e41391f99153f0515f Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 1 Dec 2019 19:56:15 -0800 Subject: [PATCH] Fix typo in previous commit. --- src/runtime/char-set.scm | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) 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 '())) -- 2.25.1