summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-15 19:00:15 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-15 19:00:15 +0100
commit06fabb21b96ccbb8bad53db40894536e23c46fef (patch)
tree273ab744cf7aa18206f925ba8e6b29e84a9c59a5
parent63c39be594264298766fc56289c92396a1790541 (diff)
downloadgeiser-guile-06fabb21b96ccbb8bad53db40894536e23c46fef.tar.gz
geiser-guile-06fabb21b96ccbb8bad53db40894536e23c46fef.tar.bz2
Compile command adapted to new compiled-file-name behaviour.
-rw-r--r--geiser/eval.scm14
1 files 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}."