From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 19 Feb 2017 09:29:50 +0000 (-0800)
Subject: Fix typo.
X-Git-Tag: mit-scheme-pucked-9.2.12~220^2~61
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9bc826be19d82d44da8b8f5ec5e3ba5ed04008e2;p=mit-scheme.git

Fix typo.
---

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)