From 3fa6b3439221e14881d17fe6b1f3b280a7da2862 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Wed, 11 Feb 2009 10:47:12 +0100
Subject: Load file commands.

---
 geiser/emacs.scm |  6 ++++--
 geiser/eval.scm  | 11 +++++++----
 2 files changed, 11 insertions(+), 6 deletions(-)

(limited to 'geiser')

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
-- 
cgit v1.2.3