summaryrefslogtreecommitdiff
path: root/scheme/guile/geiser/evaluation.scm
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-07 01:25:14 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-07 01:25:14 +0200
commit17b23aa1bfe807c68ddc5ff01eaccc99fd02a058 (patch)
treeee82f44eee65f6a864ad76840d117bb2ba7fa06f /scheme/guile/geiser/evaluation.scm
parent95f39e30fd4ae59cf962648dc8c0120c654c05bd (diff)
downloadgeiser-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.scm8
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))