scsh-0.6/ps-compiler/prescheme/test/values.scm

12 lines
203 B
Scheme
Raw Permalink Normal View History

1999-09-14 08:45:02 -04:00
; Copyright (c) 1994 by Richard Kelsey. See file COPYING.
(define (sender)
(values 1 2 3 4))
(define (receiver a b c d)
(+ a (- b (* c d))))
(define (test)
(call-with-values sender receiver))