ikarus/scheme/ikarus.multiple-values.ss

12 lines
273 B
Scheme
Raw Normal View History

(library (ikarus multiple-values)
(export call-with-values values)
(import
(ikarus system $stack)
(except (ikarus) call-with-values values))
(define call-with-values
($make-call-with-values-procedure))
(define values
($make-values-procedure)))