summaryrefslogtreecommitdiff
path: root/src/geiser
diff options
context:
space:
mode:
Diffstat (limited to 'src/geiser')
-rw-r--r--src/geiser/doc.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/geiser/doc.scm b/src/geiser/doc.scm
index 9f28f7f..2281da3 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)