diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-12-18 00:35:57 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-12-18 00:35:57 +0100 |
| commit | a405f2290e8140d353e52bb6fc429e99c7a55347 (patch) | |
| tree | 82f8e2208fb420eae470bef5c7838dee5eeb2ee8 /geiser/evaluation.scm | |
| parent | 134606d2d291ac828ccda24d068243851f33ae84 (diff) | |
| download | geiser-guile-a405f2290e8140d353e52bb6fc429e99c7a55347.tar.gz geiser-guile-a405f2290e8140d353e52bb6fc429e99c7a55347.tar.bz2 | |
Guile: fix for file loading (we always compile them now).
Diffstat (limited to 'geiser/evaluation.scm')
| -rw-r--r-- | geiser/evaluation.scm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/geiser/evaluation.scm b/geiser/evaluation.scm index 3e44834..11438cf 100644 --- a/geiser/evaluation.scm +++ b/geiser/evaluation.scm @@ -60,11 +60,9 @@ (define (ge:compile-file path) "Compile a file, given its full @var{path}." - (ge:compile `(compile-and-load ,path) '(geiser evaluation))) + (ge:compile `(load-compiled (compile-file ,path)) '(geiser evaluation))) -(define (ge:load-file path) - "Load file, given its full @var{path}." - (ge:compile `(load-compiled ,(compiled-file-name path)) '(geiser evaluation))) +(define ge:load-file ge:compile-file) (define (ge:macroexpand form . all) (let ((all (and (not (null? all)) (car all)))) |