strengthen type check

This commit is contained in:
Markus Triska
2024-03-18 21:35:12 +01:00
parent 1db6bff890
commit 8af29c200d

View File

@@ -88,7 +88,7 @@ format_(Fs, Args) -->
format_cells(Cells). format_cells(Cells).
format_args_cells(Fs, Args, Cells) :- format_args_cells(Fs, Args, Cells) :-
must_be(list, Fs), must_be(chars, Fs),
must_be(list, Args), must_be(list, Args),
unique_variable_names(Args, VNs), unique_variable_names(Args, VNs),
phrase(cells(Fs,Args,0,[],VNs), Cells). phrase(cells(Fs,Args,0,[],VNs), Cells).