From b02d34e4007d33df29294d06fc169fd468141123 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Sun, 4 Mar 2012 15:28:04 +0000
Subject: [PATCH] drop comment levels.

---
 os/pl-read.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/os/pl-read.c b/os/pl-read.c
index 705b4c53f..8f60d9320 100644
--- a/os/pl-read.c
+++ b/os/pl-read.c
@@ -602,10 +602,13 @@ raw_read2(ReadData _PL_rd ARG_LD)
 			  discardBuffer(cbuf);
 		        setErrorLocation(pos, _PL_rd);
 			rawSyntaxError("end_of_file_in_block_comment");
+#ifndef __YAP_PROLOG__
+			/* YAP does not support comment levels in original scanner */
 		      case '*':
 			if ( last == '/' )
 			  level++;
 			break;
+#endif
 		      case '/':
 			if ( last == '*' &&
 			     (--level == 0 || _PL_rd->strictness) )