use newly available must_be(chars, ...) for fast string tests

diff --git a/src/lib/charsio.pl b/src/lib/charsio.pl
index 3c5affa9b34e13a0a5d4c5f0a6a2c3a62e279da2..5ff611f669c07e92daf01b6efdf8f9fb704a984d 100644 (file)
--- a/src/lib/charsio.pl
+++ b/src/lib/charsio.pl
@@ -260,18 +260,11 @@ chars_base64(Cs, Bs, Options) :-
         ;   domain_error(charset, Charset, chars_base64/3)
         ),
         (   var(Cs) ->
-            must_be_characters(Bs),
+            must_be(chars, Bs),
             '$chars_base64'(Cs, Bs, Padding, Charset)
-        ;   must_be_characters(Cs),
+        ;   must_be(chars, Cs),
             (   '$first_non_octet'(Cs, N) ->
                 domain_error(byte_char, N, chars_base64/3)
             ;   '$chars_base64'(Cs, Bs, Padding, Charset)
             )
         ).
-
-must_be_characters(Cs) :-
-        (   partial_string(Cs) ->
-            true
-        ;   must_be(list, Cs),
-            maplist(must_be(character), Cs)
-        ).