[elpa] externals/relint 5142c86 09/23: Fix function evaluation bug

[Mattias Engdegård]

branch: externals/relint
commit 5142c86aa8da2815e78a627901d564afc6840a26
Author: Mattias Engdegård <address@hidden>
Commit: Mattias Engdegård <address@hidden>

    Fix function evaluation bug
    
    Only 1-arg functions were evaluated, instead of only functions with
    1-expression bodies.
---
 relint.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/relint.el b/relint.el
index 78b9773..d1654fb 100644
--- a/relint.el
+++ b/relint.el
@@ -744,7 +744,7 @@ not be evaluated safely."
         (let* ((fn (cdr (assq head relint--function-defs)))
                (formals (car fn))
                (fn-body (cadr fn)))
-          (if (= (length body) 1)
+          (if (= (length fn-body) 1)
               (let ((args (mapcar #'relint--eval body)))
                 (relint--apply formals args (car fn-body)))
             (throw 'relint-eval 'no-value))))