algol68g/comment.extension.patch

   1 --- ./source/scanner.c.~1~      2008-10-03 01:14:02.000000000 +0200
   2 +++ ./source/scanner.c  2008-11-14 05:03:12.000000000 +0100
   3 @@ -202,11 +202,11 @@
   4    v++;
   5    while (u != NULL) {
   6      while (v[0] != NULL_CHAR) {
   7 -      if (whether_bold (u, v, "COMMENT") && delim == BOLD_COMMENT_SYMBOL) {
   8 +      if (whether_bold (u, v, "COMMENT") || whether_bold (u, v, "TNEMMOC") && delim == BOLD_COMMENT_SYMBOL) {
   9          *top = u;
  10          *ch = &v[1];
  11          return (A68_TRUE);
  12 -      } else if (whether_bold (u, v, "CO") && delim == STYLE_I_COMMENT_SYMBOL) {
  13 +      } else if (whether_bold (u, v, "CO") || whether_bold (u, v, "OC") && delim == STYLE_I_COMMENT_SYMBOL) {
  14          *top = u;
  15          *ch = &v[1];
  16          return (A68_TRUE);