From b007b8801197325f3bd157c383bdfcace0ff57fc Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Thu, 15 Oct 2009 02:34:21 +0200 Subject: 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. --- scheme/plt/geiser.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'scheme/plt/geiser.ss') 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) -- cgit v1.2.3