racket/collects/tests/stepper/local-test.ss
2005-05-27 18:56:37 +00:00

10 lines
226 B
Scheme

(+ 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)))