andr3/scyther
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

- Bugfix.

Browse Source
This commit is contained in:
ccremers 2004-08-10 11:26:14 +00:00
parent ca4c0c8869
commit 028c3a03f2
1 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/mgu.c
View File

@ -179,11 +179,14 @@ termMguInTerm (Term t1, Term t2, void (*iterator) ())
} }
// simple clause or combined // simple clause or combined
tl = termMguTerm (t1, t2); tl = termMguTerm (t1, t2);
if (tl != MGUFAIL)
{
// Iterate // Iterate
iterator (); iterator ();
// Reset variables // Reset variables
termlistSubstReset (tl); termlistSubstReset (tl);
} }
}
//! Most general subterm unifiers of t1 subterm t2 //! Most general subterm unifiers of t1 subterm t2
/** /**
@ -224,8 +227,11 @@ termMguSubTerm (Term t1, Term t2, void (*iterator) (),
} }
// simple clause or combined // simple clause or combined
tl = termMguTerm (t1, t2); tl = termMguTerm (t1, t2);
if (tl != MGUFAIL)
{
// Iterate // Iterate
iterator (keylist); iterator (keylist);
// Reset variables // Reset variables
termlistSubstReset (tl); termlistSubstReset (tl);
} }
}