don't unify module-qualified variables to ! (#1281)

2022-02-14 18:46:15 -07:00
parent db20cda27a
commit 68ac92a616
1 changed files with 1 additions and 1 deletions
--- a/src/lib/builtins.pl
+++ b/src/lib/builtins.pl
@@ -240,7 +240,7 @@ comma_dispatch_prep(Gs, B, [Cont|Conts]) :-
          comma_dispatch_prep(G1, B, IConts1),
          cont_list_goal(IConts1, Cont),
          comma_dispatch_prep(G2, B, Conts)
-       ;  ( Gs = ! ; Gs = _:! ) ->
+       ;  Gs == ! ->
          Cont = builtins:set_cp(B),
          Conts = []
       ;  functor(Gs, ';', 2) ->