[nongnu] elpa/sweeprolog 9e3c8b4bf4 2/6: Give a better name to 'sweeprolog--mfn-to-functor-arity'

[ELPA Syncer]

branch: elpa/sweeprolog
commit 9e3c8b4bf4e66d55f72a0a1d556b29ea2de11e4c
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eshel Yaron <me@eshelyaron.com>

    Give a better name to 'sweeprolog--mfn-to-functor-arity'
    
    * sweeprolog.el (sweeprolog--pi-to-functor-arity): New function,
    renamed from 'sweeprolog--mfn-to-functor-arity'.
    (sweeprolog-native-predicate-location): Use it.
---
 sweeprolog.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/sweeprolog.el b/sweeprolog.el
index 36e011e415..7a90875137 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -906,7 +906,7 @@ PROJECT (only on Emacs 28 or later)."
   (sweeprolog-xref-project-source-files)
   (sweeprolog--query-once "sweep" "sweep_predicate_references" mfn))
 
-(defun sweeprolog--mfn-to-functor-arity (mfn)
+(defun sweeprolog--pi-to-functor-arity (mfn)
   (pcase (sweeprolog--query-once "system" "term_string" mfn t)
     (`(compound ":"
                 (atom . ,_)
@@ -931,7 +931,7 @@ PROJECT (only on Emacs 28 or later)."
               (project-known-project-roots)))))))
 
 (defun sweeprolog-native-predicate-location (mfn)
-  (let ((functor-arity (sweeprolog--mfn-to-functor-arity mfn)))
+  (let ((functor-arity (sweeprolog--pi-to-functor-arity mfn)))
     (when-let ((default-directory (sweeprolog--swipl-source-directory))
                (match
                 (car (xref-matches-in-files