summaryrefslogtreecommitdiff
path: root/scheme/guile/geiser/eval.scm
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
commit1af411071098d87188a6a479dd6741c65034de62 (patch)
tree2dc3d09da94b28fc1bf3420271b283161aa967f8 /scheme/guile/geiser/eval.scm
parentbc1b0658370808d53cfd4e485911802bc498f626 (diff)
downloadgeiser-chez-1af411071098d87188a6a479dd6741c65034de62.tar.gz
geiser-chez-1af411071098d87188a6a479dd6741c65034de62.tar.bz2
Compile command adapted to new compiled-file-name behaviour.
Diffstat (limited to 'scheme/guile/geiser/eval.scm')
-rw-r--r--scheme/guile/geiser/eval.scm14
1 files changed, 3 insertions, 11 deletions
diff --git a/scheme/guile/geiser/eval.scm b/scheme/guile/geiser/eval.scm
index 8a7f48f..0e3c7dc 100644
--- a/scheme/guile/geiser/eval.scm
+++ b/scheme/guile/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}."