diff options
| author | John Ankarström <john@ankarstrom.se> | 2022-01-22 18:21:49 +0100 |
|---|---|---|
| committer | John Ankarström <john@ankarstrom.se> | 2022-01-22 18:21:49 +0100 |
| commit | 5819d9faef5507a87d06c6f01eb8298b0eb5ec82 (patch) | |
| tree | 0f801f70933128296d038b7e57a0648dedf092ab /save.pl~ | |
| parent | 3bae3974854a2b1101332eb145ddea53c439eb31 (diff) | |
| download | save-5819d9faef5507a87d06c6f01eb8298b0eb5ec82.tar.gz | |
M save.pl
M save.pl~
Diffstat (limited to 'save.pl~')
| -rw-r--r-- | save.pl~ | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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) |