From 864e4aae180370cca28b95739724f4c32bed9595 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Wed, 22 Jun 2011 08:01:38 -0700 Subject: [PATCH] Use pathname-simplify to allow ../ in included paths. --- src/ffi/cdecls.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/ffi/cdecls.scm b/src/ffi/cdecls.scm index e9abe5fa2..956e59eb2 100644 --- a/src/ffi/cdecls.scm +++ b/src/ffi/cdecls.scm @@ -71,8 +71,9 @@ USA. ;; FILENAME relative to CWD (current working directory). ;; Abbreviates namestrings under TWD (topmost working, build directory). - (let* ((pathname (merge-pathnames - (pathname-default-type filename "cdecl") cwd)) + (let* ((pathname (pathname-simplify + (merge-pathnames + (pathname-default-type filename "cdecl") cwd))) (new-cwd (directory-pathname pathname)) (namestring (enough-namestring pathname twd)) (modtime (file-modification-time-indirect namestring)) -- 2.25.1