From a2e9a6925c4164759b006c400bb6b351470d3727 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Sun, 29 Apr 2018 23:31:22 +0200 Subject: [PATCH] mes: Add srfi-8. * module/srfi/srfi-8.mes: New file. --- module/srfi/srfi-8.mes | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 module/srfi/srfi-8.mes diff --git a/module/srfi/srfi-8.mes b/module/srfi/srfi-8.mes new file mode 100644 index 00000000..9326257f --- /dev/null +++ b/module/srfi/srfi-8.mes @@ -0,0 +1,29 @@ +;;; -*-scheme-*- + +;;; Mes --- Maxwell Equations of Software +;;; Copyright © 2018 Jan (janneke) Nieuwenhuizen +;;; +;;; This file is part of Mes. +;;; +;;; Mes is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; Mes is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with Mes. If not, see . + +;;; Commentary: + +;;; srfi-8.mes - receive + +;;; Code: + +(define-macro (receive vars vals . body) + `(call-with-values (lambda () ,vals) + (lambda ,vars . ,body)))