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

Diff of /gcl/o/mingfile.c

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

revision 1.6 by camm, Sat Jul 24 13:14:30 2004 UTC revision 1.7 by mjthomas, Thu Sep 23 01:40:11 2004 UTC
# Line 10  void Ldirectory ( void ) Line 10  void Ldirectory ( void )
10          object path;          object path;
11          check_arg(1);          check_arg(1);
12          check_type_or_pathname_string_symbol_stream(&vs_base[0]);          check_type_or_pathname_string_symbol_stream(&vs_base[0]);
13          path = vs_base[0] = truename(coerce_to_pathname(vs_base[0]));          path = vs_base[0] = coerce_to_pathname(vs_base[0]);
14                    
15          if (vs_base[0]->pn.pn_name==Cnil && vs_base[0]->pn.pn_type==Cnil) {          if (vs_base[0]->pn.pn_name==Cnil && vs_base[0]->pn.pn_type==Cnil) {
16                  coerce_to_filename(vs_base[0], filename);                  coerce_to_filename(vs_base[0], filename);

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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