From ed91fa9a252468f757658d85b539fc5d3702649f Mon Sep 17 00:00:00 2001 From: Chris Hanson 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