019-letstar.scm (335B)
1 ; let* binds sequentially: y's init may reference the new x. The let*'s 2 ; x shadows the outer x inside the body, and the shadow does not escape 3 ; the body -- after the form returns, the outer x is unchanged. 4 (define x 1) 5 6 (if (= 5 (let* ((x 5) (y x)) y)) 0 (sys-exit 1)) 7 (if (= 1 x) 0 (sys-exit 2)) 8 9 (sys-exit 0)