/[guile]/guile/guile-core/libguile/filesys.c
ViewVC logotype

Diff of /guile/guile-core/libguile/filesys.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.118 by mvo, Sat Apr 5 19:10:23 2003 UTC revision 1.119 by ela, Thu May 29 14:39:13 2003 UTC
# Line 1503  SCM_DEFINE (scm_basename, "basename", 1, Line 1503  SCM_DEFINE (scm_basename, "basename", 1,
1503    if (j == -1)    if (j == -1)
1504      end = i;      end = i;
1505  #ifdef __MINGW32__  #ifdef __MINGW32__
1506    while (i >= 0 && (f[i] != '/' || f[i] != '\\')) --i;    while (i >= 0 && f[i] != '/' && f[i] != '\\') --i;
1507  #else  #else
1508    while (i >= 0 && f[i] != '/') --i;    while (i >= 0 && f[i] != '/') --i;
1509  #endif /* ndef __MINGW32__ */  #endif /* ndef __MINGW32__ */
1510    if (i == end)    if (i == end)
1511      {      {
1512  #ifdef __MINGW32__  #ifdef __MINGW32__
1513        if (len > 0 && (f[0] == '/' || f[i] == '\\'))        if (len > 0 && (f[0] == '/' || f[0] == '\\'))
1514  #else  #else
1515        if (len > 0 && f[0] == '/')        if (len > 0 && f[0] == '/')
1516  #endif /* ndef __MINGW32__ */  #endif /* ndef __MINGW32__ */

Legend:
Removed from v.1.118  
changed lines
  Added in v.1.119

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26