Gauche > Archives > 2013/06/23

(define (bar a b) a)
(define (baz x) (x))

(define (test)
  (let ((a "foo"))
    (let ((b (baz (lambda () (set! a "bar") a))))
      (bar a b))))

(display (test))