summaryrefslogtreecommitdiff
path: root/scheme
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-06-14 22:05:23 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-06-14 22:05:23 +0200
commitc042571626977f12916d59966ea94ded44d8cf32 (patch)
tree8f54059171502730af41d64e95217a510b65bc11 /scheme
parentee5412e57af6f22b623cbe772fec2f0af91038d7 (diff)
downloadgeiser-chez-c042571626977f12916d59966ea94ded44d8cf32.tar.gz
geiser-chez-c042571626977f12916d59966ea94ded44d8cf32.tar.bz2
Guile: Bug fix in the latest evaluation code changes.
Diffstat (limited to 'scheme')
-rw-r--r--scheme/guile/geiser/evaluation.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/scheme/guile/geiser/evaluation.scm b/scheme/guile/geiser/evaluation.scm
index de08d17..3e38843 100644
--- a/scheme/guile/geiser/evaluation.scm
+++ b/scheme/guile/geiser/evaluation.scm
@@ -78,10 +78,11 @@
(set-current-module module)
(compile form))))
-(define ge:eval ge:compile)
(define (ge:compile form module-name)
(evaluate form module-name eval-compile))
+(define ge:eval ge:compile)
+
(define (ge:compile-file path)
"Compile a file, given its full @var{path}."
(ge:compile `(compile-and-load ,path) '(geiser evaluation)))