From ed91fa9a252468f757658d85b539fc5d3702649f Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 26 Jan 2017 20:26:05 -0800
Subject: [PATCH] A handful of tweaks.
---
src/runtime/bytevector.scm | 3 +--
src/runtime/dospth.scm | 3 +--
src/runtime/ntprm.scm | 2 +-
3 files changed, 3 insertions(+), 5 deletions(-)
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)
--
2.25.1