FIXED: reverse args modes in sweeprolog-document-predicate-at-point

diff --git a/sweeprolog.el b/sweeprolog.el
index f9308c8630e72fe85368b9e6d6a6c903c6b0e67c..c6c1cb4c94acdc2d4ec900ed50c3b89590e012b2 100644 (file)
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -2243,6 +2243,7 @@ predicate definition at or directly above POINT."
           (setq arguments (cons (read-string (concat num " argument: "))
                                 arguments)))
         (setq cur (1+ cur)))
+      (setq arguments (reverse arguments))
       (let ((det (cadr (read-multiple-choice "Determinism: "
                                              '((?d "det"       "Succeeds exactly once")
                                                (?s "semidet"   "Succeeds at most once")