diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-24 02:18:28 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-24 02:18:28 +0100 |
| commit | 4608da2ac8d4bafa7b8acbd7a097e32e5eb2f764 (patch) | |
| tree | 0ff64056aebfba38de7502ec12d0de1c82f81ec7 /geiser/introspection.scm | |
| parent | 49842df2405472ad6f9164d47d7eb4f5f3c423b9 (diff) | |
| download | geiser-guile-4608da2ac8d4bafa7b8acbd7a097e32e5eb2f764.tar.gz geiser-guile-4608da2ac8d4bafa7b8acbd7a097e32e5eb2f764.tar.bz2 | |
Partial support for stack trace display.
Diffstat (limited to 'geiser/introspection.scm')
| -rw-r--r-- | geiser/introspection.scm | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/geiser/introspection.scm b/geiser/introspection.scm index 29d059b..ca6afae 100644 --- a/geiser/introspection.scm +++ b/geiser/introspection.scm @@ -64,13 +64,14 @@ (else #f))) (define (symbol-module sym) - (call/cc - (lambda (k) - (apropos-fold (lambda (module name var init) - (if (eq? name sym) (k (module-name module)) init)) - #f - (symbol->string sym) - (apropos-fold-accessible (current-module)))))) + (and sym + (call/cc + (lambda (k) + (apropos-fold (lambda (module name var init) + (if (eq? name sym) (k (module-name module)) init)) + #f + (symbol->string sym) + (apropos-fold-accessible (current-module))))))) (define (program-args program) (let* ((arity (program-arity program)) |