improve '$skip_max_list'/4 and length/2 (#1023, #110)

2022-01-29 00:57:39 -07:00
parent b3006f6fd8
commit 0d653a2ce6
9 changed files with 146 additions and 121 deletions
--- a/src/lib/charsio.pl
+++ b/src/lib/charsio.pl
@@ -118,7 +118,7 @@ read_from_chars(Chars, Term) :-
       instantiation_error(read_from_chars/2)
    ;  nonvar(Term) ->
       throw(error(uninstantiation_error(Term), read_from_chars/2))
-    ;  '$skip_max_list'(_, -1, Chars, Chars0),
+    ;  '$skip_max_list'(_, _, Chars, Chars0),
       Chars0 == [],
       partial_string(Chars) ->
       true