diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-09-05 02:32:57 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-09-05 02:32:57 +0200 |
| commit | 8fa762ae053d6d2523e59f86c273f64cc421d8ad (patch) | |
| tree | d25055ace4e8ce541e4f335575d2298eb612d900 /scheme | |
| parent | e1fbc2cf7fcd9a0bb77b1f9c0d8fe9d28102d6de (diff) | |
| download | geiser-chez-8fa762ae053d6d2523e59f86c273f64cc421d8ad.tar.gz geiser-chez-8fa762ae053d6d2523e59f86c273f64cc421d8ad.tar.bz2 | |
Guile: xref commands working again
Diffstat (limited to 'scheme')
| -rw-r--r-- | scheme/guile/geiser/xref.scm | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/scheme/guile/geiser/xref.scm b/scheme/guile/geiser/xref.scm index 4f1b2cc..7dfa8af 100644 --- a/scheme/guile/geiser/xref.scm +++ b/scheme/guile/geiser/xref.scm @@ -48,20 +48,19 @@ (cond ((not (program? p)) #f) ((program-source p 0) => (lambda (s) (make-location (program-path p) (source:line s)))) - ((program-path p) => - (lambda (s) (make-location (program-path p) #f))) + ((program-path p) => (lambda (s) (make-location s #f))) (else #f))) (define (program-path p) (let* ((mod (program-module p)) - (name (and mod (module-name mod)))) + (name (and (module? mod) (module-name mod)))) (and name (module-path name)))) (define (procedure-xref proc . mod-name) - (let ((proc-name (or (procedure-name proc) '<anonymous>)) - (mod-name (if (null? mod-name) - (symbol-module proc-name) - (car mod-name)))) + (let* ((proc-name (or (procedure-name proc) '<anonymous>)) + (mod-name (if (null? mod-name) + (symbol-module proc-name) + (car mod-name)))) (make-xref proc proc-name mod-name))) (define (callers sym) |