branch: externals/relint
commit 5142c86aa8da2815e78a627901d564afc6840a26
Author: Mattias Engdegård <[email protected]>
Commit: Mattias Engdegård <[email protected]>
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))))
