diff --git a/piclib/srfi/8.scm b/piclib/srfi/8.scm new file mode 100644 index 00000000..082abe68 --- /dev/null +++ b/piclib/srfi/8.scm @@ -0,0 +1,10 @@ +(define-library (srfi 8) + (import (scheme base)) + + (define-syntax receive + (syntax-rules () + ((receive formals expression body ...) + (call-with-values (lambda () expression) + (lambda formals body ...))))) + + (export receive))