[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/geiser-guile 7a4945fbc1 2/2: Equivalent fix to the previou
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/geiser-guile 7a4945fbc1 2/2: Equivalent fix to the previous fix that reflects original intent |
Date: |
Mon, 18 Jul 2022 21:58:31 -0400 (EDT) |
branch: elpa/geiser-guile
commit 7a4945fbc199ec823da1be7283f6e81f83b2609b
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>
Equivalent fix to the previous fix that reflects original intent
program-arities is expected (in its only usage a few lines below its
definition) to return #f if program-address-range doesn't return anything
useful, and i was incorrectly using when instead of and for that.
---
src/geiser/doc.scm | 4 +---
1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/src/geiser/doc.scm b/src/geiser/doc.scm
index 2281da3df4..b566b5e8d6 100644
--- a/src/geiser/doc.scm
+++ b/src/geiser/doc.scm
@@ -78,9 +78,7 @@
(define (program-arities prog)
(let ((addrs (program-address-range prog)))
- (if (pair? addrs)
- (find-program-arities (car addrs))
- '())))
+ (and (pair? addrs) (find-program-arities (car addrs)))))
(define (arguments proc)
(define (p-args prog)