diff options
| author | jao <jao@gnu.org> | 2022-07-19 02:43:37 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-07-19 02:43:37 +0100 |
| commit | 7a4945fbc199ec823da1be7283f6e81f83b2609b (patch) | |
| tree | 65f0649b68085d6c15a0997f02ed225e2ed0b969 | |
| parent | 481d6b2463ed961e46917ad89e3d90d517266adb (diff) | |
| download | geiser-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.
| -rw-r--r-- | src/geiser/doc.scm | 4 |
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) |