diogo
/
yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

avoid making choice-point.

This commit is contained in:
Vítor Santos Costa 2012-03-22 21:43:26 +00:00
parent 1698bb3c91
commit e6b48be445
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pl/preds.yap
View File

@ -58,10 +58,10 @@ assert(C) :-
'$assert_clause2'(H, G, M1, Where, R, P). '$assert_clause2'(H, G, M1, Where, R, P).
'$assert_fact'(H,Mod,Where,R) :- '$assert_fact'(H,Mod,Where,R) :-
'$is_log_updatable'(H, Mod), !, ( '$is_log_updatable'(H, Mod) ->
'$compile_dynamic'(H, Where, H, Mod, R). '$compile_dynamic'(H, Where, H, Mod, R)
'$assert_fact'(H,Mod,Where,R) :- ;
( '$is_dynamic'(H, Mod) -> '$is_dynamic'(H, Mod) ->
'$assertat_d'(Where, H, true, H, Mod, R) '$assertat_d'(Where, H, true, H, Mod, R)
; ;
'$undefined'(H,Mod) -> '$undefined'(H,Mod) ->