From: Eshel Yaron <me@eshelyaron.com>
Date: Tue, 8 Aug 2023 18:29:35 +0000 (+0300)
Subject: Fix feedback in 'sweeprolog-set-prolog-flag'
X-Git-Tag: V9.1.14~2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3bc12ac53cb4746e87d97f42df2d162cc5f62a53;p=sweep.git

Fix feedback in 'sweeprolog-set-prolog-flag'

Similarly to the previous fix for 'sweeprolog-pack-install', this
makes 'sweeprolog-set-prolog-flag' actually report its result, instead
of reporting failure even when successful.

* sweep.pl (sweep_set_prolog_flag/2): Bind the output argument to
non-nil on success.
---

diff --git a/sweep.pl b/sweep.pl
index 01ad05e..38bdd1b 100644
--- a/sweep.pl
+++ b/sweep.pl
@@ -179,7 +179,7 @@ sweep_current_prolog_flags(Sub, Flags) :-
              term_string(Value0, Value)),
             Flags).
 
-sweep_set_prolog_flag([Flag0|Value0], []) :-
+sweep_set_prolog_flag([Flag0|Value0], true) :-
     atom_string(Flag, Flag0),
     term_string(Value, Value0),
     set_prolog_flag(Flag, Value).