From 9bc826be19d82d44da8b8f5ec5e3ba5ed04008e2 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 19 Feb 2017 01:29:50 -0800 Subject: [PATCH] Fix typo. --- src/runtime/ustring.scm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/src/runtime/ustring.scm b/src/runtime/ustring.scm index 65fc82045..a15d4c39d 100644 --- a/src/runtime/ustring.scm +++ b/src/runtime/ustring.scm @@ -567,13 +567,13 @@ USA. (else (error:not-a ->string-component? object caller)))) (define (->string-component? object) - (cond (not object) - (bitless-char? object) - (string? object) - (symbol? object) - (pathname? object) - (number? object) - (uri? object))) + (or (not object) + (bitless-char? object) + (string? object) + (symbol? object) + (pathname? object) + (number? object) + (uri? object))) (define (mapper-values proc string strings) (cond ((null? strings) -- 2.25.1