Eval Example

1
2
3
4
5
#lang r5rs
(eval '(begin (define x 0)
(display x) (newline)
(display (+ x 1)))
(scheme-report-environment 5))