[nongnu] elpa/geiser-guile 481d6b2463 1/2: Fix bug where 'program-arities' returns #<unspecified> (issue #23)

[ELPA Syncer]

branch: elpa/geiser-guile
commit 481d6b2463ed961e46917ad89e3d90d517266adb
Author: VCGS40Y <ricardo.herdt@cariad.technology>
Commit: VCGS40Y <ricardo.herdt@cariad.technology>

    Fix bug where 'program-arities' returns #<unspecified> (issue #23)
    
    program-arities now returns an empty list if no arities information is 
found.
    This fixes the bug that happens when calling, say, `(autodoc '(display))`,
    which leads to following error:
    
    ```
    scheme@(guile-user)> (autodoc '(display))
    ice-9/boot-9.scm:1669:16: In procedure raise-exception:
    In procedure map: Wrong type argument: #<unspecified>
    
    Entering a new prompt.  Type `,bt' for a backtrace or `,q' to continue.
    scheme@(guile-user) [1]> ,q
    ```
---
 src/geiser/doc.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/geiser/doc.scm b/src/geiser/doc.scm
index 9f28f7fffb..2281da3df4 100644
--- a/src/geiser/doc.scm
+++ b/src/geiser/doc.scm
@@ -78,7 +78,9 @@
 
 (define (program-arities prog)
   (let ((addrs (program-address-range prog)))
-    (when (pair? addrs) (find-program-arities (car addrs)))))
+    (if (pair? addrs)
+        (find-program-arities (car addrs))
+        '())))
 
 (define (arguments proc)
   (define (p-args prog)