stream_Property/2:

allow sp(X,Y), sp(u,Y), sp(X,t(Y)) fix lines
2016-02-20 01:30:52 +00:00
parent bc71e54f20
commit eec32e698a
3 changed files with 125 additions and 70 deletions
--- a/C/scanner.c
+++ b/C/scanner.c
@@ -1741,7 +1741,7 @@ TokEntry *Yap_tokenizer(struct stream_desc *inp_stream, bool store_comments,
      } else
        ch = getchr(inp_stream);
      break;
-    case SY:
+        case SY:
      if (ch == '.' && (pch = Yap_peek(inp_stream - GLOBAL_Stream)) &&
          (chtype(pch) == BS || chtype(pch) == EF || pch == '%')) {
        t->Tok = Ord(kind = eot_tok);