don't unify module-qualified variables to ! (#1281)
This commit is contained in:
@@ -240,7 +240,7 @@ comma_dispatch_prep(Gs, B, [Cont|Conts]) :-
|
|||||||
comma_dispatch_prep(G1, B, IConts1),
|
comma_dispatch_prep(G1, B, IConts1),
|
||||||
cont_list_goal(IConts1, Cont),
|
cont_list_goal(IConts1, Cont),
|
||||||
comma_dispatch_prep(G2, B, Conts)
|
comma_dispatch_prep(G2, B, Conts)
|
||||||
; ( Gs = ! ; Gs = _:! ) ->
|
; Gs == ! ->
|
||||||
Cont = builtins:set_cp(B),
|
Cont = builtins:set_cp(B),
|
||||||
Conts = []
|
Conts = []
|
||||||
; functor(Gs, ';', 2) ->
|
; functor(Gs, ';', 2) ->
|
||||||
|
|||||||
Reference in New Issue
Block a user