Use pathname-simplify to allow ../ in included paths.

diff --git a/src/ffi/cdecls.scm b/src/ffi/cdecls.scm
index e9abe5fa26a438ed856bb378faedfe7bc9ec0fd6..956e59eb29834db4e1019a141216077253ad3fd3 100644 (file)
--- 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))