From 8099c91da624ef280927967606eb29aa5fe67364 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 19 Jul 1991 04:42:26 +0000 Subject: [PATCH] Fix typo in last change. --- v7/src/runtime/unxdir.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/unxdir.scm b/v7/src/runtime/unxdir.scm index 5019a9027..4a325c05c 100644 --- a/v7/src/runtime/unxdir.scm +++ b/v7/src/runtime/unxdir.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unxdir.scm,v 14.6 1991/07/17 08:55:17 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unxdir.scm,v 14.7 1991/07/19 04:42:26 cph Exp $ Copyright (c) 1988-91 Massachusetts Institute of Technology @@ -49,9 +49,9 @@ MIT in each case. |# (pathname-type pattern) (pathname-version pattern)) pattern - (make-pathname (pathname-host pathname) - (pathname-device pathname) - (pathname-directory pathname) + (make-pathname (pathname-host pattern) + (pathname-device pattern) + (pathname-directory pattern) 'WILD 'WILD 'WILD))))) (let ((directory-path (pathname-directory-path pattern))) (let ((pathnames (generate-directory-pathnames directory-path))) -- 2.25.1