Use the idiomatic else in cond form

aconchillo · Dec 21, 2023 · b62f8d7 · b62f8d7
1 parent 64e3a40
commit b62f8d7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/json/parser.scm b/json/parser.scm
@@ -214,7 +214,7 @@
   (cond ((null? pairs) res)
         ((assoc (caar pairs) res)
          (uniquify-keys (cdr pairs) res))
-        (#t (uniquify-keys (cdr pairs) (cons (car pairs) res)))))
+        (else (uniquify-keys (cdr pairs) (cons (car pairs) res)))))
 
 (define (json-read-object port null ordered)
   (expect-delimiter port #\{)