diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-11 10:47:12 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-11 10:47:12 +0100 |
| commit | e4c958fe1e5bad829e08dbce31f1a23e458ebd6b (patch) | |
| tree | b6144afe718d65839bb1f60ae13d496525be4a03 /scheme | |
| parent | 2b2355b6134f5068dfff424f8fda32ae0236a516 (diff) | |
| download | geiser-guile-e4c958fe1e5bad829e08dbce31f1a23e458ebd6b.tar.gz geiser-guile-e4c958fe1e5bad829e08dbce31f1a23e458ebd6b.tar.bz2 | |
Load file commands.
Diffstat (limited to 'scheme')
| -rw-r--r-- | scheme/guile/geiser/emacs.scm | 6 | ||||
| -rw-r--r-- | scheme/guile/geiser/eval.scm | 11 |
2 files changed, 11 insertions, 6 deletions
diff --git a/scheme/guile/geiser/emacs.scm b/scheme/guile/geiser/emacs.scm index 318b07a..38ddc7c 100644 --- a/scheme/guile/geiser/emacs.scm +++ b/scheme/guile/geiser/emacs.scm @@ -27,11 +27,13 @@ (define-module (geiser emacs) #:re-export (ge:proc-args ge:completions - ge:compile-file) + ge:compile-file + ge:load-file) #:use-module ((geiser introspection) :renamer (symbol-prefix-proc 'ge:)) #:use-module ((geiser eval) - :select ((comp-file . ge:compile-file)))) + :select ((comp-file . ge:compile-file) + (load-file . ge:load-file)))) ;;; emacs.scm ends here diff --git a/scheme/guile/geiser/eval.scm b/scheme/guile/geiser/eval.scm index 530099d..1400566 100644 --- a/scheme/guile/geiser/eval.scm +++ b/scheme/guile/geiser/eval.scm @@ -25,7 +25,7 @@ ;;; Code: (define-module (geiser eval) - #:export (eval-in comp-file) + #:export (eval-in comp-file load-file) #:use-module (srfi srfi-1)) (define (eval-in form module-name) @@ -70,9 +70,12 @@ SUBR, MSG and REST." (current (getcwd))) (dynamic-wind (lambda () (chdir dest)) - (lambda () - (compile-file path) - (compile-and-load path)) + (lambda () (compile-file path)) (lambda () (chdir current))))) +(define (load-file path) + "Load file, given its full @var{path}." + (compile-and-load path)) + + ;;; eval.scm ends here |