*** empty log message ***
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1405 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
31a09376f8
commit
ae5c86e381
@ -1058,7 +1058,7 @@ Cell *l;
|
|||||||
e=andbox->externals;
|
e=andbox->externals;
|
||||||
while(e!=NULL) {
|
while(e!=NULL) {
|
||||||
if (deve_limpar_var(e)) {
|
if (deve_limpar_var(e)) {
|
||||||
(Cell *) l=(Cell *) e->var;
|
l=(Cell *) e->var;
|
||||||
*((Cell *) l)=(Cell) l;
|
*((Cell *) l)=(Cell) l;
|
||||||
}
|
}
|
||||||
e=e->next;
|
e=e->next;
|
||||||
@ -3288,7 +3288,7 @@ break_debug();
|
|||||||
#endif
|
#endif
|
||||||
{ register Cell _DR1;
|
{ register Cell _DR1;
|
||||||
|
|
||||||
(Cell) _DR1=absappl((Cell) _H); /* SaveExpression in _DR1*/
|
_DR1=absappl((Cell) _H); /* SaveExpression in _DR1*/
|
||||||
_X[arg1]=(Cell) _DR1;
|
_X[arg1]=(Cell) _DR1;
|
||||||
*(_H++)=arg2;
|
*(_H++)=arg2;
|
||||||
_S=_H;
|
_S=_H;
|
||||||
|
Reference in New Issue
Block a user