From 62d3ee0ccb778ed571e45e44bff3eb631ed4c5e4 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Fri, 18 Dec 2009 00:35:57 +0100 Subject: Guile: fix for file loading (we always compile them now). --- scheme/guile/geiser/evaluation.scm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'scheme') diff --git a/scheme/guile/geiser/evaluation.scm b/scheme/guile/geiser/evaluation.scm index 3e44834..11438cf 100644 --- a/scheme/guile/geiser/evaluation.scm +++ b/scheme/guile/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)))) -- cgit v1.2.3