7 lines
189 B
Racket
7 lines
189 B
Racket
#lang racket
|
|
(define ns (make-base-namespace))
|
|
(define (eval-with-x code a b)
|
|
(define (with v)
|
|
(namespace-set-variable-value! 'x v #f ns)
|
|
(eval code ns))
|
|
(- (with b) (with a)))
|