summaryrefslogtreecommitdiff
path: root/scheme/plt/geiser.ss
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-10-15 02:34:21 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-10-15 02:34:21 +0200
commitb007b8801197325f3bd157c383bdfcace0ff57fc (patch)
tree11f183ece13c67111cac6b8716ed905e4569c193 /scheme/plt/geiser.ss
parentd56dfe6f1505b99f90a4978dffd0b592fef72a68 (diff)
downloadgeiser-guile-b007b8801197325f3bd157c383bdfcace0ff57fc.tar.gz
geiser-guile-b007b8801197325f3bd157c383bdfcace0ff57fc.tar.bz2
PLT: Evaluation takes into account #lang forms.
This is useful when visiting a file that has not been loaded: the evaluation namespace is provided by its #lang, if any. While i was at it, i also refactored the mess in geiser:load-file.
Diffstat (limited to 'scheme/plt/geiser.ss')
-rw-r--r--scheme/plt/geiser.ss3
1 files changed, 2 insertions, 1 deletions
diff --git a/scheme/plt/geiser.ss b/scheme/plt/geiser.ss
index c46f06c..a86b6a9 100644
--- a/scheme/plt/geiser.ss
+++ b/scheme/plt/geiser.ss
@@ -38,7 +38,8 @@
geiser/locations
geiser/autodoc)
- (define geiser:eval eval-in)
+ (define (geiser:eval lang)
+ (lambda (form spec) (eval-in form spec lang)))
(define geiser:compile compile-in)
(define geiser:load-file load-file)
(define geiser:compile-file compile-file)