diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-09 01:29:26 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-09 01:29:26 +0100 |
| commit | 4e7c148fef58281345c1d4d0815732e27977da71 (patch) | |
| tree | 22ed1c67b6fecd2c0bd024a6a04e897e2e105f59 /scheme/geiser/eval.scm | |
| parent | e16e29baa9d444be4fd5e60f93c124c666c60b80 (diff) | |
| download | geiser-chez-4e7c148fef58281345c1d4d0815732e27977da71.tar.gz geiser-chez-4e7c148fef58281345c1d4d0815732e27977da71.tar.bz2 | |
Basic region/definition/sexp evaluation and autodoc mode working.
Diffstat (limited to 'scheme/geiser/eval.scm')
| -rw-r--r-- | scheme/geiser/eval.scm | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/scheme/geiser/eval.scm b/scheme/geiser/eval.scm index 450221a..e6fa0cf 100644 --- a/scheme/geiser/eval.scm +++ b/scheme/geiser/eval.scm @@ -38,13 +38,13 @@ SUBR, MSG and REST." (let ((module (or (and module-name (resolve-module module-name)) (current-module)))) (catch #t - (lambda () - (let* ((result #f) - (output (with-output-to-string - (lambda () (set! result (eval form module)))))) - (list (cons 'result result) (cons 'output output)))) - (lambda (key . args) - (list (cons 'error (apply parse-error (cons key args)))))))) + (lambda () + (let* ((result #f) + (output (with-output-to-string + (lambda () (set! result (compile form module)))))) + (list (cons 'result result) (cons 'output output)))) + (lambda (key . args) + (list (cons 'error (apply parse-error (cons key args)))))))) (define (parse-error key . args) (let* ((len (length args)) @@ -57,4 +57,6 @@ SUBR, MSG and REST." (cons 'msg (if msg (apply format (cons #f (cons msg margs))) '())) (cons 'rest (or rest '()))))) +(define (test-geiser) 4) + ;;; eval.scm ends here |