From 9b552d3ee77d179d1c55fa4a25cac2db98dddf9e Mon Sep 17 00:00:00 2001 From: "Henry M. Wu" Date: Thu, 28 May 1992 22:59:09 +0000 Subject: [PATCH] *** empty log message *** --- v7/src/runtime/infutl.scm | 12 +++++++----- v8/src/runtime/infutl.scm | 12 +++++++----- 2 files changed, 14 insertions(+), 10 deletions(-) diff --git a/v7/src/runtime/infutl.scm b/v7/src/runtime/infutl.scm index e33df9f43..c848805fb 100644 --- a/v7/src/runtime/infutl.scm +++ b/v7/src/runtime/infutl.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/infutl.scm,v 1.40 1992/05/28 22:41:02 mhwu Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/infutl.scm,v 1.41 1992/05/28 22:59:09 mhwu Exp $ Copyright (c) 1988-91 Massachusetts Institute of Technology @@ -273,10 +273,12 @@ MIT in each case. |# ;; into giving us a namestring that might contain uncanonicalized ;; characters in them. This will break if the pathname abstraction ;; cares at all. - (pathname-new-directory - pathname - `(relative ,replacement ,@remaining-directories))) - pathanme)))) + (pathname-new-device + (pathname-new-directory + pathname + `(relative ,replacement ,@remaining-directories)) + false)) + pathname)))) (define (directory-prefix? x y) (and (pair? x) diff --git a/v8/src/runtime/infutl.scm b/v8/src/runtime/infutl.scm index ca461c737..cc5b04768 100644 --- a/v8/src/runtime/infutl.scm +++ b/v8/src/runtime/infutl.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/infutl.scm,v 1.40 1992/05/28 22:41:02 mhwu Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/infutl.scm,v 1.41 1992/05/28 22:59:09 mhwu Exp $ Copyright (c) 1988-91 Massachusetts Institute of Technology @@ -273,10 +273,12 @@ MIT in each case. |# ;; into giving us a namestring that might contain uncanonicalized ;; characters in them. This will break if the pathname abstraction ;; cares at all. - (pathname-new-directory - pathname - `(relative ,replacement ,@remaining-directories))) - pathanme)))) + (pathname-new-device + (pathname-new-directory + pathname + `(relative ,replacement ,@remaining-directories)) + false)) + pathname)))) (define (directory-prefix? x y) (and (pair? x) -- 2.25.1