From 1af411071098d87188a6a479dd6741c65034de62 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz 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