[nongnu] elpa/geiser-guile 06fabb2 020/284: Compile command adapted to new compiled-file-name behaviour.

[Philip Kaludercic]

branch: elpa/geiser-guile
commit 06fabb21b96ccbb8bad53db40894536e23c46fef
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Compile command adapted to new compiled-file-name behaviour.
---
 geiser/eval.scm | 14 +++-----------
 1 file changed, 3 insertions(+), 11 deletions(-)

diff --git a/geiser/eval.scm b/geiser/eval.scm
index 8a7f48f..0e3c7dc 100644
--- a/geiser/eval.scm
+++ b/geiser/eval.scm
@@ -62,18 +62,10 @@ SUBR, MSG and REST."
           (cons 'msg (if msg (apply format (cons #f (cons msg margs))) '()))
           (cons 'rest (or rest '())))))
 
-(define (comp-file path . dest)
+(define (comp-file path)
   "Compile and load file, given its full @var{path}."
-  (let ((dest (if (null? dest)
-                  (dirname path)
-                  (car dest)))
-        (current (getcwd)))
-    (dynamic-wind
-        (lambda () (chdir dest))
-        (lambda ()
-          (and (compile-file path)
-               (load-compiled (string-append dest "/" (compiled-file-name 
path)))))
-        (lambda () (chdir current)))))
+  (and (compile-file path)
+       (load-compiled (compiled-file-name path))))
 
 (define (load-file path)
   "Load file, given its full @var{path}."