diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-07 01:25:14 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-07 01:25:14 +0200 |
| commit | 17b23aa1bfe807c68ddc5ff01eaccc99fd02a058 (patch) | |
| tree | ee82f44eee65f6a864ad76840d117bb2ba7fa06f /scheme/guile/geiser/evaluation.scm | |
| parent | 95f39e30fd4ae59cf962648dc8c0120c654c05bd (diff) | |
| download | geiser-guile-17b23aa1bfe807c68ddc5ff01eaccc99fd02a058.tar.gz geiser-guile-17b23aa1bfe807c68ddc5ff01eaccc99fd02a058.tar.bz2 | |
Guile: real fix for symbol locations (needs Guile's git head).
Diffstat (limited to 'scheme/guile/geiser/evaluation.scm')
| -rw-r--r-- | scheme/guile/geiser/evaluation.scm | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/scheme/guile/geiser/evaluation.scm b/scheme/guile/geiser/evaluation.scm index 179e425..a0007c4 100644 --- a/scheme/guile/geiser/evaluation.scm +++ b/scheme/guile/geiser/evaluation.scm @@ -15,6 +15,7 @@ ge:macroexpand ge:compile-file ge:load-file) + #:use-module (geiser modules) #:use-module (srfi srfi-1) #:use-module (language tree-il) #:use-module (system base compile) @@ -33,13 +34,6 @@ (else (display (format "ERROR: ~a, args: ~a" (car args) (cdr args))))) `(error (key . ,(car args)))) -(define (find-module module-name) - (and (list? module-name) - (or (nested-ref the-root-module (append '(%app modules) module-name)) - (let ((m (resolve-module module-name))) - (beautify-user-module! m) - m)))) - (define (write-result result output) (write (list (cons 'result result) (cons 'output output))) (newline)) |