algol68g/options.patch

   1 --- ./source/options.c.orig     2008-10-03 01:13:36.000000000 +0200
   2 +++ ./source/options.c  2008-11-19 07:01:35.000000000 +0100
   3 @@ -280,10 +280,8 @@
   4        if (!minus_sign && cmd_line) {
   5  /* Item without '-'s is generic filename. */
   6          if (!name_set) {
   7 -          module->files.generic_name = new_string (p);
   8 +          module->files.generic_name = new_string (i->str);
   9            name_set = A68_TRUE;
  10 -        } else {
  11 -          option_error (NULL, start_c, "filename reset by");
  12          }
  13        }
  14  /* Preprocessor items stop option processing. */