implements (srfi 8)

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))