M save.exe

M  save.pl
M  save.pl~

1 files changed, 5 insertions, 3 deletions

diff --git a/save.pl~ b/save.pl~
index d9881e3..1b50fff 100644
--- a/save.pl~
+++ b/save.pl~
@@ -82,6 +82,8 @@ chain_atom_x(C, A0, A) :-
 	).
 
 commit(Msg) :-
-	process_create(path(git), ['commit', '-m', Msg], [])
-	;
-	true.
+	setup_call_cleanup(
+	    process_create(path(git), ['commit', '-m', Msg], []),
+	    true,
+	    true
+	).