*** 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:
rslopes 2005-10-19 11:31:57 +00:00
parent 31a09376f8
commit ae5c86e381

View File

@ -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;