diff options
| -rw-r--r-- | scheme/guile/geiser/emacs.scm | 16 |
1 files changed, 2 insertions, 14 deletions
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 . <form-value>) (OUTPUT . <string>)) -if no evaluation error happens, or ((ERROR (KEY . <error-key>) <error-arg>...)) -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 . <form-value>) (OUTPUT . <string>)) -if no evaluation error happens, or ((ERROR (KEY . <error-key>) <error-arg>...)) -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 |