diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-10-15 02:34:21 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-10-15 02:34:21 +0200 |
| commit | b007b8801197325f3bd157c383bdfcace0ff57fc (patch) | |
| tree | 11f183ece13c67111cac6b8716ed905e4569c193 /scheme/plt/geiser.ss | |
| parent | d56dfe6f1505b99f90a4978dffd0b592fef72a68 (diff) | |
| download | geiser-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.ss | 3 |
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) |