10 lines
241 B
Scheme
10 lines
241 B
Scheme
|
|
||
|
|
(library (ikarus multiple-values)
|
||
|
|
(export call-with-values values)
|
||
|
|
(import (except (scheme) call-with-values values))
|
||
|
|
|
||
|
|
(define call-with-values
|
||
|
|
($make-call-with-values-procedure))
|
||
|
|
(define values
|
||
|
|
($make-values-procedure)))
|