summaryrefslogtreecommitdiff
path: root/scheme
diff options
context:
space:
mode:
Diffstat (limited to 'scheme')
-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}."