From 666bb88a7e82a83109cbccf5a42270df0ceadc22 Mon Sep 17 00:00:00 2001 From: vsc Date: Wed, 2 Jan 2002 07:17:21 +0000 Subject: [PATCH] make phrase/2 and phrase/3 meta-predicates improve message in scanner.c git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@251 b08c6af1-5177-4d33-ba66-4b1c6b8b522a --- C/scanner.c | 4 ++-- pl/modules.yap | 2 ++ 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/C/scanner.c b/C/scanner.c index c506a8d9d..183863e21 100644 --- a/C/scanner.c +++ b/C/scanner.c @@ -557,7 +557,7 @@ token(void) my_get_quoted_ch(); while (1) { if (charp + 1024 > (char *)AuxSp) { - ErrorMessage = "Heap Overflow While Scanning: please increase heap"; + ErrorMessage = "Heap Overflow While Scanning: please increase code space (-h)"; break; } if (ch == quote) { @@ -1292,7 +1292,7 @@ fast_tokenizer(void) my_fgetch(); while (1) { if (charp + 1024 > (char *)AuxSp) { - ErrorMessage = "Heap Overflow While Scanning: please increase heap"; + ErrorMessage = "Heap Overflow While Scanning: please increase code space (-h)"; break; } if (ch == quote) { diff --git a/pl/modules.yap b/pl/modules.yap index 1e05fbdf8..92bc77c97 100644 --- a/pl/modules.yap +++ b/pl/modules.yap @@ -551,6 +551,8 @@ source_module(Mod) :- listing(?), nospy(:), not(:), + phrase(:,?), + phrase(:,?,+), retract(:), retract(:,?), retractall(:),