* (sweeprolog-predicate-completion-at-point): fix pcase match

diff --git a/sweeprolog.el b/sweeprolog.el
index 4d66835e01d5870181b3c7674e31c2e50cc779a9..2ccd786b2775b64360d3ace19fc9d141c9027be7 100644 (file)
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -1068,7 +1068,7 @@ resulting list even when found in the current clause."
                                (`(compound
                                   "term_position"
                                   0 ,length
-                                  fbeg fend
+                                  ,_fbeg ,_fend
                                   ,holes)
                                 (with-silent-modifications
                                   (dolist (hole holes)