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
This commit is contained in:
parent
e2b3d04a42
commit
666bb88a7e
@ -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) {
|
||||
|
@ -551,6 +551,8 @@ source_module(Mod) :-
|
||||
listing(?),
|
||||
nospy(:),
|
||||
not(:),
|
||||
phrase(:,?),
|
||||
phrase(:,?,+),
|
||||
retract(:),
|
||||
retract(:,?),
|
||||
retractall(:),
|
||||
|
Reference in New Issue
Block a user