rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove failing append choicepoint in atom_concat/3 special case (#1893)

Browse Source
This commit is contained in:
Mark
2023-07-18 14:44:02 -06:00
parent 1ba040c24d
commit 14646074be
1 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/lib/builtins.pl
View File

@@ -1559,9 +1559,14 @@ atom_concat(Atom_1, Atom_2, Atom_12) :-
( var(Atom_12) -> ( var(Atom_12) ->
throw(error(instantiation_error, atom_concat/3)) throw(error(instantiation_error, atom_concat/3))
; atom_chars(Atom_12, Atom_12_Chars), ; atom_chars(Atom_12, Atom_12_Chars),
( var(Atom_2) ->
lists:append(BeforeChars, AfterChars, Atom_12_Chars), lists:append(BeforeChars, AfterChars, Atom_12_Chars),
atom_chars(Atom_1, BeforeChars),
atom_chars(Atom_2, AfterChars) atom_chars(Atom_2, AfterChars)
; atom_chars(Atom_2, AfterChars),
lists:append(BeforeChars, AfterChars, Atom_12_Chars),
!
),
atom_chars(Atom_1, BeforeChars)
) )
; var(Atom_2) -> ; var(Atom_2) ->
( var(Atom_12) -> throw(error(instantiation_error, atom_concat/3)) ( var(Atom_12) -> throw(error(instantiation_error, atom_concat/3))