From 3bc12ac53cb4746e87d97f42df2d162cc5f62a53 Mon Sep 17 00:00:00 2001
From: Eshel Yaron <me@eshelyaron.com>
Date: Tue, 8 Aug 2023 21:29:35 +0300
Subject: [PATCH] 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.
---
 sweep.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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).
-- 
2.39.5