diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-21 04:46:14 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-21 04:46:14 +0100 |
| commit | 540a2cb21e9d8b84ddd3be629b7f2937f76cf6e9 (patch) | |
| tree | 1e3833f585dadab16862e615a98aebca27bf0817 /elisp/geiser-eval.el | |
| parent | 3b9b06b6af1a069084a7f62177a87611b78fb599 (diff) | |
| download | geiser-540a2cb21e9d8b84ddd3be629b7f2937f76cf6e9.tar.gz geiser-540a2cb21e9d8b84ddd3be629b7f2937f76cf6e9.tar.bz2 | |
Correct stack in load/compile file retorts.
Diffstat (limited to 'elisp/geiser-eval.el')
| -rw-r--r-- | elisp/geiser-eval.el | 8 |
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)) |