summaryrefslogtreecommitdiff
path: root/elisp/geiser-eval.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-21 04:46:14 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-21 04:46:14 +0100
commitabe0355b7eb7961c89ef2e37f68451b131dacb05 (patch)
tree5e51a1acc9a39382a5c3c05e441b154933c0caff /elisp/geiser-eval.el
parent612c7390fc3ff78ac9b0b10b83304095cfceccd5 (diff)
downloadgeiser-guile-abe0355b7eb7961c89ef2e37f68451b131dacb05.tar.gz
geiser-guile-abe0355b7eb7961c89ef2e37f68451b131dacb05.tar.bz2
Correct stack in load/compile file retorts.
Diffstat (limited to 'elisp/geiser-eval.el')
-rw-r--r--elisp/geiser-eval.el8
1 files changed, 8 insertions, 0 deletions
diff --git a/elisp/geiser-eval.el b/elisp/geiser-eval.el
index ca442f0..785f441 100644
--- a/elisp/geiser-eval.el
+++ b/elisp/geiser-eval.el
@@ -40,6 +40,8 @@
((listp code)
(cond ((eq (car code) :eval) (geiser-eval--eval (cdr code)))
((eq (car code) :comp) (geiser-eval--comp (cdr code)))
+ ((eq (car code) :load-file) (geiser-eval--load-file (cadr code)))
+ ((eq (car code) :comp-file) (geiser-eval--comp-file (cadr code)))
((eq (car code) :module) (geiser-eval--module (cadr code)))
((eq (car code) :ge) (geiser-eval--ge (cadr code)))
((eq (car code) :scm) (cadr code))
@@ -55,6 +57,12 @@
(geiser-eval--scheme-str
`((@ (geiser emacs) ge:compile) (quote ,(nth 0 code)) (:module ,(nth 1 code)))))
+(defsubst geiser-eval--load-file (file)
+ (geiser-eval--scheme-str `((@ (geiser emacs) ge:load-file) ,file)))
+
+(defsubst geiser-eval--comp-file (file)
+ (geiser-eval--scheme-str `((@ (geiser emacs) ge:compile-file) ,file)))
+
(defsubst geiser-eval--module (code)
(geiser-eval--scheme-str
(cond ((or (eq code '(())) (null code))