imake sure mutable is available.

2011-09-20 09:54:30 +01:00 · 2011-09-20 09:54:30 +01:00 · bfc1def1d5
commit bfc1def1d5
parent 7cc1d98079
1 changed files with 2 additions and 1 deletions
--- a/packages/CLPBN/clpbn.yap
+++ b/packages/CLPBN/clpbn.yap
@ -166,7 +166,8 @@ clpbn_flag(parameter_softening,Before,After) :-
 % we use a mutable variable to avoid unnecessary trailing.
 %
 store_var(El) :- 
-	nb_current(clpbn_qvars, Mutable), !,
+	nb_current(clpbn_qvars, Mutable), 
+	nonvar(Mutable), !,
 	get_mutable(Tail, Mutable),
 	update_mutable(El.Tail, Mutable).
 store_var(El) :-