From e5265da345e369921c2b8a3206bc502e7bf5a981 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 12 Aug 1992 09:16:44 +0000 Subject: [PATCH] Fix dos/canonicalize to not extract substrings when the string has the proper length. --- v7/src/runtime/dospth.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/v7/src/runtime/dospth.scm b/v7/src/runtime/dospth.scm index 3f0312524..fa7a80cdb 100644 --- a/v7/src/runtime/dospth.scm +++ b/v7/src/runtime/dospth.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/dospth.scm,v 1.9 1992/08/12 08:57:22 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/dospth.scm,v 1.10 1992/08/12 09:16:44 jinx Exp $ Copyright (c) 1992 Massachusetts Institute of Technology @@ -198,8 +198,7 @@ MIT in each case. |# (<= (string-length field) length))) (define (canonicalize-field field length) - (if (not (string? field)) - field + (if (valid? field length) (substring field 0 length))) ;; This should really canonicalize the directory as well. -- 2.25.1