/[gcl]/gcl/o/unixfsys.c
ViewVC logotype

Diff of /gcl/o/unixfsys.c

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

revision 1.23 by camm, Wed Jun 15 15:44:42 2005 UTC revision 1.24 by camm, Wed Jun 29 04:26:20 2005 UTC
# Line 443  LFD(Ltruename)(void) Line 443  LFD(Ltruename)(void)
443              !file_exists(vs_base[0])) {              !file_exists(vs_base[0])) {
444              file_error("File ~S does not exist.",vs_base[0]);              file_error("File ~S does not exist.",vs_base[0]);
445              vs_base[0] = Cnil;              vs_base[0] = Cnil;
446          } else {          } else
             if ((vs_base[0]->pn.pn_directory == Cnil) ||  
                     (vs_base[0]->pn.pn_directory == sKunspecific))  
                 vs_base[0]->pn.pn_directory=make_cons(sKrelative,Cnil);  
447              vs_base[0] = truename(vs_base[0]);              vs_base[0] = truename(vs_base[0]);
         }  
448  }  }
449    
450  LFD(Lrename_file)(void)  LFD(Lrename_file)(void)

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

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