diff options
-rw-r--r-- | save.pl | 1 | ||||
-rw-r--r-- | save.pl~ | 5 |
2 files changed, 3 insertions, 3 deletions
@@ -89,6 +89,7 @@ commit(Msg) :- commited(S) :- dif(S, 0), + write(S), nl, send(@display, report, error, 'Files could not be saved.'). @@ -84,12 +84,11 @@ commit(Msg) :- write('creating process'), nl, process_create(path(git), ['commit', '-m', Msg], [process(PID)]), - write(waiting), nl, process_wait(PID, S), - write(waited), nl, commited(S). -commited(1) :- +commited(S) :- + dif(S, 0), send(@display, report, error, 'Files could not be saved.'). |