stream_Property/2:
allow sp(X,Y), sp(u,Y), sp(X,t(Y)) fix lines
This commit is contained in:
6
C/args.c
6
C/args.c
@@ -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);
|
||||
|
@@ -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);
|
||||
|
Reference in New Issue
Block a user