[PATCH] ice-9 receive without defmacro

[PATCH] ice-9 receive without defmacro

[Andreas Rottmann]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: receive-without-defmacro.diff --]
[-- Type: text/x-diff, Size: 1166 bytes --]

From: Andreas Rottmann <a.rottmann@gmx.at>
Subject: ice-9 receive without define-macro

* module/ice-9/receive.scm: Replace define-macro usage with syntax-rules.

---
 module/ice-9/receive.scm |   10 ++++++----
 1 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/module/ice-9/receive.scm b/module/ice-9/receive.scm
index d550c6f..f4f4d81 100644
--- a/module/ice-9/receive.scm
+++ b/module/ice-9/receive.scm
@@ -1,6 +1,6 @@
 ;;;; SRFI-8
 
-;;; Copyright (C) 2000, 2001, 2004, 2006 Free Software Foundation, Inc.
+;;; Copyright (C) 2000, 2001, 2004, 2006, 2010 Free Software Foundation, Inc.
 ;;;
 ;;;; This library is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU Lesser General Public
@@ -21,8 +21,10 @@
   :no-backtrace
   )
 
-(define-macro (receive vars vals . body)
-  `(call-with-values (lambda () ,vals)
-     (lambda ,vars ,@body)))
+(define-syntax receive
+  (syntax-rules ()
+    ((receive vars vals . body)
+     (call-with-values (lambda () vals)
+       (lambda vars . body)))))
 
 (cond-expand-provide (current-module) '(srfi-8))
-- 
tg: (c399333..) t/receive-without-defmacro (depends on: master)

[-- Attachment #2: Type: text/plain, Size: 57 bytes --]


Regards,
-- 
Andreas Rottmann -- <http://rotty.yi.org/>