summaryrefslogtreecommitdiff
path: root/geiser
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
commit6590f6b8f7b767ff8dd37cd22e9a30b25c259b9f (patch)
treede39e1238d3c7fadc4160cb7606acc5584e366da /geiser
parentf9be2bc11a281deeb85c12d45ef566e533e4ca16 (diff)
downloadgeiser-guile-6590f6b8f7b767ff8dd37cd22e9a30b25c259b9f.tar.gz
geiser-guile-6590f6b8f7b767ff8dd37cd22e9a30b25c259b9f.tar.bz2
Guile: Bug fix in the latest evaluation code changes.
Diffstat (limited to 'geiser')
-rw-r--r--geiser/evaluation.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/geiser/evaluation.scm b/geiser/evaluation.scm
index de08d17..3e38843 100644
--- a/geiser/evaluation.scm
+++ b/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)))