summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-11 10:47:12 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-11 10:47:12 +0100
commit3fa6b3439221e14881d17fe6b1f3b280a7da2862 (patch)
tree20d0e14c836f0939b1bae5c6320a81f1f72c4aa3
parent1b60c6f2793ce1fdf6c8873f83fea2216dc97da2 (diff)
downloadgeiser-guile-3fa6b3439221e14881d17fe6b1f3b280a7da2862.tar.gz
geiser-guile-3fa6b3439221e14881d17fe6b1f3b280a7da2862.tar.bz2
Load file commands.
-rw-r--r--geiser/emacs.scm6
-rw-r--r--geiser/eval.scm11
2 files changed, 11 insertions, 6 deletions
diff --git a/geiser/emacs.scm b/geiser/emacs.scm
index 318b07a..38ddc7c 100644
--- a/geiser/emacs.scm
+++ b/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/geiser/eval.scm b/geiser/eval.scm
index 530099d..1400566 100644
--- a/geiser/eval.scm
+++ b/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