stream_Property/2:

allow sp(X,Y), sp(u,Y), sp(X,t(Y))
 fix lines
This commit is contained in:
Vítor Santos Costa
2016-02-20 01:30:52 +00:00
parent bc71e54f20
commit eec32e698a
3 changed files with 125 additions and 70 deletions

View File

@@ -58,6 +58,7 @@ xarg *
Yap_ArgListToVector (Term listl, const param_t *def, int n)
{
CACHE_REGS
listl = Deref(listl);
xarg *a = calloc( n , sizeof(xarg) );
LOCAL_Error_TYPE = YAP_NO_ERROR;
if (IsApplTerm(listl) && FunctorOfTerm(listl) == FunctorModule)
@@ -84,6 +85,9 @@ Yap_ArgListToVector (Term listl, const param_t *def, int n)
if (!na) {
return failed( TYPE_ERROR_LIST, listl, a);
}
na->used = true;
na->tvalue = ArgOfTerm(1,listl);
return a;
} else {
return failed( TYPE_ERROR_LIST, listl, a);
}
@@ -119,7 +123,7 @@ Yap_ArgListToVector (Term listl, const param_t *def, int n)
if (!na) {
return failed( DOMAIN_ERROR_GENERIC_ARGUMENT, hd, a);
}
na->used = 1;
na->used = true;
na->tvalue = ArgOfTerm(1, hd);
} else {
return failed( TYPE_ERROR_PARAMETER, hd, a);

View File

@@ -1741,7 +1741,7 @@ TokEntry *Yap_tokenizer(struct stream_desc *inp_stream, bool store_comments,
} else
ch = getchr(inp_stream);
break;
case SY:
case SY:
if (ch == '.' && (pch = Yap_peek(inp_stream - GLOBAL_Stream)) &&
(chtype(pch) == BS || chtype(pch) == EF || pch == '%')) {
t->Tok = Ord(kind = eot_tok);