RosettaCodeData/Task/Runtime-evaluation-In-an-environment/Scheme/runtime-evaluation-in-an-environment.scm

(define (eval-with-x prog a b)
  (let ((at-a (eval `(let ((x ',a)) ,prog)))
        (at-b (eval `(let ((x ',b)) ,prog))))
    (- at-b at-a)))
Initial data commit 2023-07-01 11:58:00 -04:00			`(define (eval-with-x prog a b)`
			(let ((at-a (eval `(let ((x ',a)) ,prog)))
			(at-b (eval `(let ((x ',b)) ,prog))))
			`(- at-b at-a)))`