From 2cc8df132b097388e311e521bd76768e1cd7e17b Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Tue, 26 May 1992 00:08:03 +0000 Subject: [PATCH] Allow device names with more than one letter. --- v7/src/runtime/dospth.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/v7/src/runtime/dospth.scm b/v7/src/runtime/dospth.scm index 47b681e65..e845ed168 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.3 1992/04/16 05:13:05 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/dospth.scm,v 1.4 1992/05/26 00:08:03 jinx Exp $ Copyright (c) 1992 Massachusetts Institute of Technology @@ -101,8 +101,11 @@ MIT in each case. |# (let ((colon (string-find-next-char string #\:))) (cond ((not colon) (receiver false string)) + #| + ;; CON:, PRN:, etc. are valid devices. ((not (= colon 1)) (error "dos/parse-namestring: Invalid drive name" string)) + |# (else (receiver (substring string 0 (1+ colon)) (substring string (1+ colon) -- 2.25.1