From 48b5a364e3131643a15b302a80d5e39384858480 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Thu, 3 Jan 2002 18:35:46 +0000
Subject: [PATCH] fix 'aaaa''aaaa' in no escape mode

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@266 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/scanner.c | 2 +-
 C/tracer.c  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/C/scanner.c b/C/scanner.c
index 183863e21..6fe20b68c 100644
--- a/C/scanner.c
+++ b/C/scanner.c
@@ -1299,8 +1299,8 @@ fast_tokenizer(void)
 	    my_fgetch();
 	    if (ch != quote)
 	      break;
-	    my_fgetch();
 	    *charp++ = ch;
+	    my_fgetch();
 	  } else if (ch == '\\' && yap_flags[CHARACTER_ESCAPE_FLAG] != CPROLOG_CHARACTER_ESCAPES) {
 	    /* escape sequence */
 	    ch = my_fgetch();
diff --git a/C/tracer.c b/C/tracer.c
index 6f9f59a2c..2f65b7f3e 100644
--- a/C/tracer.c
+++ b/C/tracer.c
@@ -118,7 +118,7 @@ low_level_trace(yap_low_level_port port, PredEntry *pred, CELL *args)
   extern int gc_calls;
 
   vsc_count++;
-  if (vsc_count < 49036000) return;
+  /*  if (vsc_count < 49036000) return; */
   /* if (vsc_count > 500000) exit(0); */
   /* if (gc_calls < 1) return;*/
   YP_fprintf(YP_stderr,"%lu (%x) ", vsc_count, CreepFlag);