get rid of debugging message
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@343 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
f3c031633b
commit
c5267f786c
@ -110,7 +110,6 @@ assertz_static(V) :- var(V), !,
|
|||||||
throw(error(instantiation_error,assertz_static(V))).
|
throw(error(instantiation_error,assertz_static(V))).
|
||||||
assertz_static(C) :-
|
assertz_static(C) :-
|
||||||
'$current_module'(Mod),
|
'$current_module'(Mod),
|
||||||
(predicate_property(short(_), dynamic) -> write(yes), nl ; write(no),nl),
|
|
||||||
'$assert_static'(C,Mod,last,_,assertz_static(C)).
|
'$assert_static'(C,Mod,last,_,assertz_static(C)).
|
||||||
|
|
||||||
'$assert_static'(V,M,_,_,_) :- var(V), !,
|
'$assert_static'(V,M,_,_,_) :- var(V), !,
|
||||||
|
Reference in New Issue
Block a user