Fixed a Scheme translation bug; cleaned compilation with GCC 4.

[bpt/guile.git] / testsuite / t-values.scm

(use-modules (ice-9 receive))

(define (do-stuff x y)
  (values x y))

(call-with-values (lambda ()    (values 1 2))
                  (lambda (x y) (cons x y)))