fix dif:vars_remove_goal/2 (#2175), untabify forms.rs to appease format check

2023-11-20 13:40:58 -07:00
parent 8d9a759a7d
commit 1e5bb2d3da
3 changed files with 19 additions and 10 deletions
--- a/src/lib/dif.pl
+++ b/src/lib/dif.pl
@@ -33,11 +33,13 @@ remove_goal([G0|G0s], Goal0, Goals) :-

 vars_remove_goal([], _).
 vars_remove_goal([Var|Vars], Goal0) :-
-    get_atts(Var, +dif(Goals0)),
-    remove_goal(Goals0, Goal0, Goals),
-    (   Goals = [] ->
-        put_atts(Var, -dif(_))
-    ;   put_atts(Var, +dif(Goals))
+    (  get_atts(Var, +dif(Goals0)) ->
+       remove_goal(Goals0, Goal0, Goals),
+       (   Goals = [] ->
+           put_atts(Var, -dif(_))
+       ;   put_atts(Var, +dif(Goals))
+       )
+    ;  true
    ),
    vars_remove_goal(Vars, Goal0).