summaryrefslogtreecommitdiff
path: root/scheme/geiser/eval.scm
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-09 01:29:26 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-09 01:29:26 +0100
commit4e7c148fef58281345c1d4d0815732e27977da71 (patch)
tree22ed1c67b6fecd2c0bd024a6a04e897e2e105f59 /scheme/geiser/eval.scm
parente16e29baa9d444be4fd5e60f93c124c666c60b80 (diff)
downloadgeiser-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.scm16
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