[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/geiser-guile 0d93543 186/284: Merge branch 'master' into g
From: |
Philip Kaludercic |
Subject: |
[nongnu] elpa/geiser-guile 0d93543 186/284: Merge branch 'master' into guile-meta |
Date: |
Sun, 1 Aug 2021 18:29:41 -0400 (EDT) |
branch: elpa/geiser-guile
commit 0d93543a2ee7ce9ee48c3bf77dd68802c155dca1
Merge: 17ebbec 04fd67f
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>
Merge branch 'master' into guile-meta
---
geiser/doc.scm | 13 +++++++------
1 file changed, 7 insertions(+), 6 deletions(-)
diff --git a/geiser/doc.scm b/geiser/doc.scm
index f5471b5..902f2a3 100644
--- a/geiser/doc.scm
+++ b/geiser/doc.scm
@@ -66,16 +66,17 @@
(else 'variable)))
(define (arguments proc)
- (define (p-arguments prog)
- (map (lambda (a) ((@@ (system vm program) arity->arguments-alist) prog a))
- (or (program-arities prog) '())))
+ (define (p-args prog)
+ (let ((as (map (lambda (a)
+ ((@@ (system vm program) arity->arguments-alist) prog a))
+ (or (program-arities prog) '()))))
+ (and (not (null? as)) as)))
(define (clist f) (lambda (x) (let ((y (f x))) (and y (list y)))))
(cond ((is-a? proc <generic>) (generic-args proc))
+ ((doc->args proc) => list)
((procedure-property proc 'arglist) => (clist arglist->args))
((procedure-source proc) => (clist source->args))
- ((doc->args proc) => list)
- ((program? proc) (let ((a (p-arguments proc)))
- (and (not (null? a)) a)))
+ ((and (program? proc) (p-args proc)))
((procedure-property proc 'arity) => (clist arity->args))
(else #f)))
- [nongnu] elpa/geiser-guile aab5226 272/284: geiser -> src, (continued)
- [nongnu] elpa/geiser-guile aab5226 272/284: geiser -> src, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 705083a 273/284: Adding elisp/geiser-guile.el with past history, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 43d9ece 275/284: license and readme files, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 6e8add2 277/284: typo, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 6b31cd5 179/284: Guile: really support R6RS libs, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile a6c2ef3 180/284: Guile: debug leftover deleted, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 35e8b30 174/284: Using smart tab mode in REPL, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 5e04bdd 181/284: Guile: reactivating the debugger during evaluation, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 4f0c19c 182/284: Guile: reactivating the debugger during evaluation, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 384d21f 184/284: Autodoc: fix for improper macro arglists scanning, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 0d93543 186/284: Merge branch 'master' into guile-meta,
Philip Kaludercic <=
- [nongnu] elpa/geiser-guile bc80639 194/284: Merge branch 'master' into guile-meta, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 9d26fb3 201/284: Debugger support, and Guile using it, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile a000bd1 217/284: Guile nit, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile f6911b5 218/284: New geiser-add-to-load-path, just for Guile right now, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile f017454 221/284: Bug fix: don't override customized geiser-implementations-alist, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 8624afc 229/284: Finishing removal of the "foo ends here" footers, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 85bf381 244/284: guile: pretty printing evaluation results (#64), Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 452e096 235/284: White space, really, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 2f91e2e 245/284: Ensuring switch-to-geiser asks for an implementation, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile f5fee3b 255/284: Quoting binary on version checks (issue #117), Philip Kaludercic, 2021/08/01