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

use must_be(list, ...) earlier, since it is now faster

Browse Source
This commit is contained in:
Markus Triska
2021-11-26 17:11:51 +01:00
parent 6ba374c62b
commit 803e120a51
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/lib/error.pl
View File

@@ -47,13 +47,13 @@ must_be_(integer, Term) :- check_(integer, integer, Term).
must_be_(atom, Term) :- check_(atom, atom, Term). must_be_(atom, Term) :- check_(atom, atom, Term).
must_be_(character, T) :- check_(error:character, character, T). must_be_(character, T) :- check_(error:character, character, T).
must_be_(chars, Ls) :- must_be_(chars, Ls) :-
( ground(Ls), '$is_partial_string'(Ls) -> must_be(list, Ls),
( '$is_partial_string'(Ls) ->
% The expected case (success) uses a very fast test. % The expected case (success) uses a very fast test.
% We cannot use partial_string/1 from library(iso_ext), % We cannot use partial_string/1 from library(iso_ext),
% because that library itself imports library(error). % because that library itself imports library(error).
true true
; must_be(list, Ls), ; all_characters(Ls)
all_characters(Ls)
). ).
must_be_(list, Term) :- check_(error:ilist, list, Term). must_be_(list, Term) :- check_(error:ilist, list, Term).
must_be_(type, Term) :- check_(error:type, type, Term). must_be_(type, Term) :- check_(error:type, type, Term).