From: Eshel Yaron <me@eshelyaron.com>
Date: Tue, 4 Oct 2022 08:27:20 +0000 (+0300)
Subject: FIXED: reverse args modes in sweeprolog-document-predicate-at-point
X-Git-Tag: v0.5.0~7
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f40dcff15579df30b4c637463f13957f2cb191aa;p=sweep.git

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

diff --git a/sweeprolog.el b/sweeprolog.el
index f9308c8..c6c1cb4 100644
--- 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")