From 5f4dcd331c3bf74be591df607908d8a582974fef Mon Sep 17 00:00:00 2001 From: stibear Date: Thu, 19 Jun 2014 03:21:53 +0900 Subject: [PATCH] implements (srfi 8) --- piclib/srfi/8.scm | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 piclib/srfi/8.scm 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))