diff options
| -rw-r--r-- | src/geiser/doc.scm | 4 |
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) |