string parsing should stop at finding an EOF

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@796 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2003-03-13 18:30:33 +00:00 · 2003-03-13 18:30:33 +00:00 · ca2da577af
commit ca2da577af
parent 9fbee88c0b
1 changed files with 1 additions and 0 deletions
--- a/C/scanner.c
+++ b/C/scanner.c
@ -764,6 +764,7 @@ Yap_tokenizer(int inp_stream)
 	} else if (chtype[ch] == EF) {
 	  Yap_ReleasePreAllocCodeSpace((CODEADDR)TokImage);
 	  t->Tok = Ord(kind = eot_tok);
+	  break;
 	} else {
 	  *charp++ = ch;
 	  ch = QuotedNxtch(inp_stream);