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

use seq//1

Browse Source
This commit is contained in:
Markus Triska
2021-11-27 16:17:45 +01:00
parent fd9b354c70
commit 91af72e8b1
1 changed files with 1 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/lib/sgml.pl
View File

@@ -64,9 +64,6 @@ load_html(Source, Es, Options) :-
load_xml(Source, Es, Options) :- load_xml(Source, Es, Options) :-
load_structure_(Source, Es, Options, xml). load_structure_(Source, Es, Options, xml).
list([]) --> [].
list([L|Ls]) --> [L], list(Ls).
load_structure_([], [], _, _). load_structure_([], [], _, _).
load_structure_([C|Cs], [E], Options, What) :- load_structure_([C|Cs], [E], Options, What) :-
load_(What, [C|Cs], E, Options). load_(What, [C|Cs], E, Options).
@@ -74,7 +71,7 @@ load_structure_(file(Fs), [E], Options, What) :-
must_be(list, Options), must_be(list, Options),
must_be(list, Fs), must_be(list, Fs),
atom_chars(File, Fs), atom_chars(File, Fs),
once(phrase_from_file(list(Cs), File)), once(phrase_from_file(seq(Cs), File)),
load_(What, Cs, E, Options). load_(What, Cs, E, Options).
load_structure_(stream(Stream), [E], Options, What) :- load_structure_(stream(Stream), [E], Options, What) :-
must_be(list, Options), must_be(list, Options),