From 1af411071098d87188a6a479dd6741c65034de62 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Sun, 15 Feb 2009 19:00:15 +0100
Subject: Compile command adapted to new compiled-file-name behaviour.
---
scheme/guile/geiser/eval.scm | 14 +++-----------
1 file changed, 3 insertions(+), 11 deletions(-)
(limited to 'scheme')
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}."
--
cgit v1.2.3