racket/collects/tests/stepper/local-test.rktl
2010-05-01 09:58:16 -06:00

11 lines
227 B
Racket

(+ 14
(local
((define (fact x)
(if (= x 0)
1
(* x (fact (- x 1)))))
(define nother (lambda (x) x))
(define a (+ 3 5))
(define b (+ a 13)))
(fact b)))