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 | 06fabb21b96ccbb8bad53db40894536e23c46fef (patch) | |
| tree | 273ab744cf7aa18206f925ba8e6b29e84a9c59a5 | |
| parent | 63c39be594264298766fc56289c92396a1790541 (diff) | |
| download | geiser-guile-06fabb21b96ccbb8bad53db40894536e23c46fef.tar.gz geiser-guile-06fabb21b96ccbb8bad53db40894536e23c46fef.tar.bz2 | |
Compile command adapted to new compiled-file-name behaviour.
| -rw-r--r-- | geiser/eval.scm | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/geiser/eval.scm b/geiser/eval.scm index 8a7f48f..0e3c7dc 100644 --- a/geiser/eval.scm +++ b/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}." |