summaryrefslogtreecommitdiff
path: root/save.pl~
diff options
context:
space:
mode:
Diffstat (limited to 'save.pl~')
-rw-r--r--save.pl~11
1 files changed, 7 insertions, 4 deletions
diff --git a/save.pl~ b/save.pl~
index 8474511..2c93580 100644
--- a/save.pl~
+++ b/save.pl~
@@ -83,9 +83,12 @@ chain_atom_x(C, A0, A) :-
commit(Msg) :-
process_create(path(git), ['commit', '-m', Msg],
[process(PID)]),
- process_wait(PID, S).
+ process_wait(PID, S),
+ commited(S).
-added(1) :-
+commited(1) :-
send(@display, report, error,
- 'Files could not be added to index.
-Ensure Git is in PATH.').
+ 'Files could not be saved.').
+
+commited(0) :-
+ halt.