summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-12-18 00:35:57 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-12-18 00:35:57 +0100
commita405f2290e8140d353e52bb6fc429e99c7a55347 (patch)
tree82f8e2208fb420eae470bef5c7838dee5eeb2ee8
parent134606d2d291ac828ccda24d068243851f33ae84 (diff)
downloadgeiser-guile-a405f2290e8140d353e52bb6fc429e99c7a55347.tar.gz
geiser-guile-a405f2290e8140d353e52bb6fc429e99c7a55347.tar.bz2
Guile: fix for file loading (we always compile them now).
-rw-r--r--geiser/evaluation.scm6
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))))