summaryrefslogtreecommitdiff
path: root/scheme
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-01-24 20:31:21 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-01-24 20:31:21 +0100
commit26e9c414608c3e287f736bbedffff291e46e6f40 (patch)
treed942f293bc64f99b0304432be9e9e4420a0b3007 /scheme
parentaa02b8c828bc4468e15324a68f8d97a46ca21a87 (diff)
downloadgeiser-guile-26e9c414608c3e287f736bbedffff291e46e6f40.tar.gz
geiser-guile-26e9c414608c3e287f736bbedffff291e46e6f40.tar.bz2
Guile: Geiser now behaves correctly in buffers for unloaded modules.
Diffstat (limited to 'scheme')
-rw-r--r--scheme/guile/geiser/evaluation.scm13
1 files changed, 10 insertions, 3 deletions
diff --git a/scheme/guile/geiser/evaluation.scm b/scheme/guile/geiser/evaluation.scm
index 3811153..3a834bb 100644
--- a/scheme/guile/geiser/evaluation.scm
+++ b/scheme/guile/geiser/evaluation.scm
@@ -1,6 +1,6 @@
;;; evaluation.scm -- evaluation, compilation and macro-expansion
-;; Copyright (C) 2009 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009, 2010 Jose Antonio Ortega Ruiz
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the Modified BSD License. You should
@@ -31,10 +31,17 @@
(display-error stack (current-output-port) subr msg args rest))
(else (display (format "ERROR: ~a, args: ~a" (car args) (cdr args)))))
`(error (key . ,(car args))))
+(nested-ref the-root-module '(%app modules geiser))
+
+(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 (ge:compile form module-name)
- (let* ((module (or (and (list? module-name)
- (resolve-module module-name))
+ (let* ((module (or (find-module module-name)
(current-module)))
(result #f)
(captured-stack #f)