25-set.scm (293B)
1 ;; Step 12a: set!. Mutates an existing binding. Exercises both the 2 ;; global path and the local (let-bound) path — set_binding is 3 ;; local-first with global fallback, so the two paths are distinct. 4 (define x 10) 5 (set! x 30) 6 (if (= x 30) 7 (if (= (let ((y 1)) (set! y 12) y) 12) 8 42 0) 0)