12 lines
203 B
Scheme
12 lines
203 B
Scheme
|
; 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))
|