(import chicken scheme)

;;; This does not work
(let-values (((a b) (values 1 2)))
  (define foo (list a b)))

(print foo)
;; --> Error: unbound variable: foo

;;; This does:
;; (define foo #f)
;; (let-values (((a b) (values 1 2)))
;;    (set! foo (list a b)))

;;(print foo)