From 8337756109d12349b220ba422f148555a2d031c2 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Thu, 26 Feb 2009 12:00:12 +0100 Subject: Eval/load file in the correct module. --- scheme/guile/geiser/emacs.scm | 16 ++-------------- 1 file changed, 2 insertions(+), 14 deletions(-) (limited to 'scheme') diff --git a/scheme/guile/geiser/emacs.scm b/scheme/guile/geiser/emacs.scm index 90e03dd..f440827 100644 --- a/scheme/guile/geiser/emacs.scm +++ b/scheme/guile/geiser/emacs.scm @@ -125,32 +125,20 @@ (compile form)))) (define (ge:eval form module-name) - "Evals @var{form} in the module designated by @var{module-name}. -If @var{module-name} is @var{#f} or resolution fails, the current module is used instead. -The result is a list of the form ((RESULT . ) (OUTPUT . )) -if no evaluation error happens, or ((ERROR (KEY . ) ...)) -in case of errors. Each error arg is a cons (NAME . VALUE), where NAME includes -SUBR, MSG and REST." (evaluate form module-name eval)) (define (ge:compile form module-name) - "Compiles @var{form} in the module designated by @var{module-name}. -If @var{module-name} is @var{#f} or resolution fails, the current module is used instead. -The result is a list of the form ((RESULT . ) (OUTPUT . )) -if no evaluation error happens, or ((ERROR (KEY . ) ...)) -in case of errors. Each error arg is a cons (NAME . VALUE), where NAME includes -SUBR, MSG and REST." (evaluate form module-name eval-compile)) (define (ge:compile-file path) "Compile and load file, given its full @var{path}." (evaluate `(and (compile-file ,path) (load-compiled ,(compiled-file-name path))) - '(geiser emacs) + #f eval)) (define (ge:load-file path) "Load file, given its full @var{path}." - (evaluate `(load ,path) '(geiser emacs) eval)) + (evaluate `(load ,path) #f eval)) ;;; emacs.scm ends here -- cgit v1.2.3