Changeset 1162


Ignore:
Timestamp:
Aug 12, 2003, 10:48:20 PM (17 years ago)
Author:
orlov
Message:
  • File open mode is converted to lower case.
  • In case of problems with file opening do $fail instead of $error.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/library/StdIO/open_file.cc

    r863 r1162  
    4040          wcstombs(mode, ws.get_data(), len + 1);
    4141          mode[len] = 0;
     42          mode[0] = tolower(mode[0]);
    4243          if (!ch->open(fname, mode)) {
    43             throw Word::create_expr(L"Open-File") +
    44               Word::create_expr(strerror(errno));
     44            retfail;
    4545          }
    4646          delete mode;
Note: See TracChangeset for help on using the changeset viewer.