A handful of tweaks.

diff --git a/src/runtime/bytevector.scm b/src/runtime/bytevector.scm
index c29101192cbf5fc07bafb652e0021a59f494d517..3d7636848ee0811c516a0be6146284cea444d197 100644 (file)
--- 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 faf4d656460e13ac43e183944b01bc357e79ed3f..eb745dc6e3bb26a9e25be89d832ca11ebb306032 100644 (file)
--- 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 d979816508475526bbfb1a44ccf633fa4e0d10d0..893f9b32fa56a32d98084008275f7c7a7787dd2e 100644 (file)
--- 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)