From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 27 Jan 2017 04:26:05 +0000 (-0800)
Subject: A handful of tweaks.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~63
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ed91fa9a252468f757658d85b539fc5d3702649f;p=mit-scheme.git

A handful of tweaks.
---

diff --git a/src/runtime/bytevector.scm b/src/runtime/bytevector.scm
index c29101192..3d7636848 100644
--- a/src/runtime/bytevector.scm
+++ b/src/runtime/bytevector.scm
@@ -309,8 +309,7 @@ USA.
 	   (start (fix:start-index start end caller))
 	   (string
 	    (make-ustring
-	     (let (
-		   (truncated
+	     (let ((truncated
 		    (lambda (index)
 		      (error (string "Truncated " noun " sequence:")
 			     (bytevector-copy bytevector
diff --git a/src/runtime/dospth.scm b/src/runtime/dospth.scm
index faf4d6564..eb745dc6e 100644
--- a/src/runtime/dospth.scm
+++ b/src/runtime/dospth.scm
@@ -167,8 +167,7 @@ USA.
 
 (define (substring-components string start end delimiters)
   (let loop ((start start))
-    (let ((index
-	   (ustring-find-first-char-in-set string delimiters start end)))
+    (let ((index (ustring-find-first-char-in-set string delimiters start end)))
       (if index
 	  (cons (usubstring string start index) (loop (fix:+ index 1)))
 	  (list (usubstring string start end))))))
diff --git a/src/runtime/ntprm.scm b/src/runtime/ntprm.scm
index d97981650..893f9b32f 100644
--- a/src/runtime/ntprm.scm
+++ b/src/runtime/ntprm.scm
@@ -49,7 +49,7 @@ USA.
 
 (define (file-attributes filename)
   ((ucode-primitive file-attributes 1)
-   (->namestring (merge-pathnames filename))))
+   (string-for-primitive (->namestring (merge-pathnames filename)))))
 (define file-attributes-direct file-attributes)
 (define file-attributes-indirect file-attributes)