From 3bae3974854a2b1101332eb145ddea53c439eb31 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= Date: Sat, 22 Jan 2022 18:20:26 +0100 Subject: M save.pl M save.pl~ --- save.pl | 4 ++-- save.pl~ | 1 + 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/save.pl b/save.pl index fac8995..5990d16 100644 --- a/save.pl +++ b/save.pl @@ -72,8 +72,8 @@ chain_atom(C, A) :- chain_atom_x(C, '', A). chain_atom_x(C, A0, A) :- - ( get(C, delete_head, A1), - atom_concat(A0, A1, A2), + ( get(C, delete_head, A1) + -> atom_concat(A0, A1, A2), atom_concat(A2, ' ', A3), chain_atom_x(C, A3, A) diff --git a/save.pl~ b/save.pl~ index 2c93580..fac8995 100644 --- a/save.pl~ +++ b/save.pl~ @@ -91,4 +91,5 @@ commited(1) :- 'Files could not be saved.'). commited(0) :- + write(success), nl, halt. -- cgit v1.2.3