branch: elpa/geiser-guile
commit 06fabb21b96ccbb8bad53db40894536e23c46fef
Author: Jose Antonio Ortega Ruiz <[email protected]>
Commit: Jose Antonio Ortega Ruiz <[email protected]>
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}."
