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

partial_string/3 should accept empty lists (#264)

Browse Source
This commit is contained in:
Mark Thom
2020-02-21 12:55:33 -07:00
parent d3744d6f66
commit 564622e38b
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/prolog/lib/non_iso.pl
View File

@@ -158,12 +158,13 @@ set_random(Seed) :-
). ).
partial_string(String, L, L0) :- partial_string(String, L, L0) :-
( String == [] -> throw(error(type_error(list, []), partial_string/3)) ( String == [] ->
L = L0
; catch(atom_chars(Atom, String), ; catch(atom_chars(Atom, String),
error(E, _), error(E, _),
throw(error(E, partial_string/3))) throw(error(E, partial_string/3))),
), '$create_partial_string'(Atom, L, L0)
'$create_partial_string'(Atom, L, L0). ).
partial_string(String) :- partial_string(String) :-
'$is_partial_string'(String). '$is_partial_string'(String).