From: Markus Triska <triska@metalevel.at>
Date: Fri, 25 Apr 2025 16:39:21 +0000 (+0200)
Subject: FIXED: invoke correct predicate
X-Git-Tag: v0.10.0~35^2~22
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=073ec4c1d0c81d165cb33483e01c0a2ebc038829;p=scryer-prolog.git

FIXED: invoke correct predicate

Noted by Oleg Finkelstein. Many thanks!
---

diff --git a/src/lib/builtins.pl b/src/lib/builtins.pl
index df7696f9..3100f7f9 100644
--- a/src/lib/builtins.pl
+++ b/src/lib/builtins.pl
@@ -1736,7 +1736,7 @@ chars_or_vars_([C|Cs], PI) :-
     (  nonvar(C) ->
        (  atom(C),
           atom_length(C, 1) ->
-          chars_or_vars(Cs, PI)
+          chars_or_vars_(Cs, PI)
        ;  throw(error(type_error(character, C), PI))
        )
     ;  chars_or_vars_(Cs, PI)