diff options
author | Andy Wingo <wingo@pobox.com> | 2010-04-19 16:39:11 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-04-19 16:39:11 +0200 |
commit | 22457d5730b2d5302c55a8f1f4c07470be975021 (patch) | |
tree | 8f5d07f95bff0346203331f203218c12f1bba045 /libguile/filesys.h | |
parent | 0abc21094420dc00312cfa74788e5d9c1524b04a (diff) | |
download | guile-22457d5730b2d5302c55a8f1f4c07470be975021.tar.gz |
filesystem trickery to scm_i_relativize_path in filesys.c; bugfix.
* libguile/filesys.h:
* libguile/filesys.c (scm_i_relativize_path): New function, moved here
from fports.c. Internal for now; we can make it external though if
people like its interface.
* libguile/fports.c (fport_canonicalize_filename): Move all of the
tricky bits to filesys.c. Also fixes a bug in which a delimiter wasn't
stripped.
Diffstat (limited to 'libguile/filesys.h')
-rw-r--r-- | libguile/filesys.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/filesys.h b/libguile/filesys.h index a07f20496..967ce7450 100644 --- a/libguile/filesys.h +++ b/libguile/filesys.h @@ -3,7 +3,7 @@ #ifndef SCM_FILESYS_H #define SCM_FILESYS_H -/* Copyright (C) 1995,1997,1998,1999,2000,2001, 2006, 2008, 2009 Free Software Foundation, Inc. +/* Copyright (C) 1995,1997,1998,1999,2000,2001, 2006, 2008, 2009, 2010 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -66,6 +66,7 @@ SCM_API SCM scm_copy_file (SCM oldfile, SCM newfile); SCM_API SCM scm_dirname (SCM filename); SCM_API SCM scm_basename (SCM filename, SCM suffix); SCM_API SCM scm_canonicalize_path (SCM path); +SCM_INTERNAL SCM scm_i_relativize_path (SCM path, SCM in_path); SCM_INTERNAL void scm_init_filesys (void); |