diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix bad copy to S

Browse Source
This commit is contained in:
Vitor Santos Costa 2014-03-18 19:32:10 +00:00
parent 2c5d6ad488
commit e6fbba4030
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
library/dialect/swi/fli/swi.c
View File

@ -802,7 +802,7 @@ X_API int PL_cons_functor_v(term_t d, functor_t f, term_t a0)
tmp = RepAppl(t)+1; tmp = RepAppl(t)+1;
} }
for (i = 0; i < arity; i++) { for (i = 0; i < arity; i++) {
tmp[i] = Yap_GetFromSlot(a0 PASS_REGS); Yap_unify(tmp[i] , Yap_GetFromSlot(a0 PASS_REGS) );
a0++; a0++;
} }
Yap_PutInSlot(d,t PASS_REGS); Yap_PutInSlot(d,t PASS_REGS);