[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/geiser-guile 63ebbc1 070/284: Using the new (system xref)
From: |
Philip Kaludercic |
Subject: |
[nongnu] elpa/geiser-guile 63ebbc1 070/284: Using the new (system xref) interface. |
Date: |
Sun, 1 Aug 2021 18:29:18 -0400 (EDT) |
branch: elpa/geiser-guile
commit 63ebbc1c5343be09167f84090cf9cf69bb8e776a
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>
Using the new (system xref) interface.
---
geiser/xref.scm | 19 ++++++++++++++-----
1 file changed, 14 insertions(+), 5 deletions(-)
diff --git a/geiser/xref.scm b/geiser/xref.scm
index 059fbb0..f00f724 100644
--- a/geiser/xref.scm
+++ b/geiser/xref.scm
@@ -42,7 +42,9 @@
(define (generic-methods sym)
(let* ((gen (symbol->object sym))
- (methods (if (is-a? gen <generic>) (generic-function-methods gen)
'())))
+ (methods (if (is-a? gen <generic>)
+ (generic-function-methods gen)
+ '())))
(filter (lambda (x) (not (null? x)))
(map (lambda (m)
(make-xref (method-procedure m) sym (symbol-module sym)))
@@ -67,14 +69,21 @@
(name (and mod (module-name mod))))
(and name (module-filename name))))
-(define (procedure-xref proc)
- (let ((name (procedure-name proc)))
- (make-xref proc name (symbol-module name))))
+(define (procedure-xref proc . mod-name)
+ (let ((proc-name (or (procedure-name proc) '<anonymous>))
+ (mod-name (if (null? mod-name)
+ (symbol-module name)
+ (car mod-name))))
+ (make-xref proc proc-name mod-name)))
(define (callers sym)
(let ((mod (symbol-module sym #t)))
(and mod
- (map procedure-xref (procedure-callers (cons mod sym))))))
+ (apply append (map (lambda (procs)
+ (map (lambda (proc)
+ (procedure-xref proc (car procs)))
+ (cdr procs)))
+ (procedure-callers (cons mod sym)))))))
(define (callees sym)
(let ((obj (symbol->object sym)))
- [nongnu] elpa/geiser-guile af8296f 051/284: generic-methods implemented in scheme (no emacs side yet)., (continued)
- [nongnu] elpa/geiser-guile af8296f 051/284: generic-methods implemented in scheme (no emacs side yet)., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile ea52102 055/284: A bit more robust generic methods., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile c3d36f3 056/284: Don't display autodoc for function being defined., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile d5ff699 057/284: Refactoring., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile f36778f 059/284: Some tidy up., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile c52771f 062/284: Support for multiple Scheme implementations, Chapter 2., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile e912bbf 063/284: Multiple values as evaluation result supported., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 38da2b3 064/284: Misc nits and work in progress., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile ce78e11 069/284: Better xref display., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 4eeb068 071/284: Module completion generalized and implemented for PLT., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 63ebbc1 070/284: Using the new (system xref) interface.,
Philip Kaludercic <=
- [nongnu] elpa/geiser-guile 54484ab 075/284: Fixes for module names reading and evaluation result display., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile b14ac49 079/284: Guile: rewriting stack trace captures - not yet complete., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile b32aed7 077/284: module-children -> module-exports., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 19f55b0 097/284: New implementation registration mechanism, for the elisp side of things., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile c34d042 091/284: Yet another deklugdification: locals scanning moved to elisp., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile a329773 094/284: BSD relicensing: Guile code., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 694539c 101/284: Guile: bug fix: a macro-transformer is not a good arity info source., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 8f57a6a 034/284: Autodoc system revamped., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile f48e83f 065/284: Accept a list as Guile binary., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 4e1d945 088/284: Simpler, more correct and efficient autodoc implementation., Philip Kaludercic, 2021/08/01