diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-15 19:00:15 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-15 19:00:15 +0100 |
| commit | 1af411071098d87188a6a479dd6741c65034de62 (patch) | |
| tree | 2dc3d09da94b28fc1bf3420271b283161aa967f8 /scheme/guile | |
| parent | bc1b0658370808d53cfd4e485911802bc498f626 (diff) | |
| download | geiser-guile-1af411071098d87188a6a479dd6741c65034de62.tar.gz geiser-guile-1af411071098d87188a6a479dd6741c65034de62.tar.bz2 | |
Compile command adapted to new compiled-file-name behaviour.
Diffstat (limited to 'scheme/guile')
| -rw-r--r-- | scheme/guile/geiser/eval.scm | 14 |
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}." |