From 2f5f23782b77f1f5bf31cc5504e02984336a3aba Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Sat, 22 Jan 2022 19:06:51 +0100
Subject: M  save.exe M  save.pl M  save.pl~

---
 save.pl | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'save.pl')

diff --git a/save.pl b/save.pl
index a12f6a1..a387f9a 100644
--- a/save.pl
+++ b/save.pl
@@ -2,6 +2,9 @@
 :- consult(library(pce)).
 :- consult(library(process)).
 
+:- op(920,fy, *).
+*_.
+
 :- pce_begin_class(save_dialog, dialog).
 
 unlink(D) :->
@@ -41,7 +44,7 @@ added(0) :-
 
 	% Right side.
 	send(@file_browser, right, @dialog),
-	send(@commit_browser, right, @dialog),
+	*send(@commit_browser, right, @dialog),
 	refresh,
 
 	% Left side.
@@ -57,9 +60,9 @@ refresh :-
 	send(@files, clear),
 	status(@files),
 	send(@file_browser, members(@files)),
-	send(@commits, clear),
-	log(@commits),
-	send(@commit_browser, members(@commits)).
+	*send(@commits, clear),
+	*log(@commits),
+	*send(@commit_browser, members(@commits)).
 
 status(C) :-
 	setup_call_cleanup(
-- 
cgit v1.2.3