From ba13256d20ce53c7a35092ae2d23debe64c764a5 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Wed, 11 Feb 2009 01:32:14 +0100
Subject: Compile file.

---
 scheme/guile/geiser/eval.scm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'scheme/guile/geiser')

diff --git a/scheme/guile/geiser/eval.scm b/scheme/guile/geiser/eval.scm
index 7d82f7d..b4c0ea0 100644
--- a/scheme/guile/geiser/eval.scm
+++ b/scheme/guile/geiser/eval.scm
@@ -62,8 +62,15 @@ SUBR, MSG and REST."
           (cons 'msg (if msg (apply format (cons #f (cons msg margs))) '()))
           (cons 'rest (or rest '())))))
 
-(define (comp-file path)
+(define (comp-file path . dest)
   "Compile and load file, given its full @var{path}."
-  (compile-file path))
+  (let ((dest (if (null? dest)
+                  (dirname path)
+                  (car dest)))
+        (current (getcwd)))
+    (dynamic-wind
+        (lambda () (chdir dest))
+        (lambda () (compile-file path))
+        (lambda () (chdir current)))))
 
 ;;; eval.scm ends here
-- 
cgit v1.2.3