summaryrefslogtreecommitdiff
path: root/src/geiser
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-07-19 02:43:37 +0100
committerjao <jao@gnu.org>2022-07-19 02:43:37 +0100
commit7a4945fbc199ec823da1be7283f6e81f83b2609b (patch)
tree65f0649b68085d6c15a0997f02ed225e2ed0b969 /src/geiser
parent481d6b2463ed961e46917ad89e3d90d517266adb (diff)
downloadgeiser-guile-7a4945fbc199ec823da1be7283f6e81f83b2609b.tar.gz
geiser-guile-7a4945fbc199ec823da1be7283f6e81f83b2609b.tar.bz2
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.
Diffstat (limited to 'src/geiser')
-rw-r--r--src/geiser/doc.scm4
1 files changed, 1 insertions, 3 deletions
diff --git a/src/geiser/doc.scm b/src/geiser/doc.scm
index 2281da3..b566b5e 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)