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 | 641449ca6073648d5722d1a552d3a5245d523e48 (patch) | |
| tree | 5cf7ba8f01858b6485648b74c263299e16fa0be0 /scheme/guile/geiser/introspection.scm | |
| parent | abe0355b7eb7961c89ef2e37f68451b131dacb05 (diff) | |
| download | geiser-guile-641449ca6073648d5722d1a552d3a5245d523e48.tar.gz geiser-guile-641449ca6073648d5722d1a552d3a5245d523e48.tar.bz2 | |
Partial support for stack trace display.
Diffstat (limited to 'scheme/guile/geiser/introspection.scm')
| -rw-r--r-- | scheme/guile/geiser/introspection.scm | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/scheme/guile/geiser/introspection.scm b/scheme/guile/geiser/introspection.scm index 29d059b..ca6afae 100644 --- a/scheme/guile/geiser/introspection.scm +++ b/scheme/guile/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)) |