From b816304293c430f9ccdc25cd92990dae87d1055d Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Sat, 3 May 2008 13:55:33 +0200
Subject: [PATCH] rebase record-case on `match'

* module/system/base/syntax.scm (record-case): Rebase on `match', for
  transition purposes.
---
 module/system/base/syntax.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/module/system/base/syntax.scm b/module/system/base/syntax.scm
index a1d9181d3..783f177a1 100644
--- a/module/system/base/syntax.scm
+++ b/module/system/base/syntax.scm
@@ -175,6 +175,12 @@
        (cond ,@(map process-clause clauses)
              (else (error "unhandled record" ,r))))))
 
+(use-modules (ice-9 match))
+(define-macro (record-case record . clauses)
+  (define (process-clause clause)
+    `(($ ,@(car clause)) ,@(cdr clause)))
+  `(match ,record ,(map process-clause clauses)))
+
 
 ;;;
 ;;; Utilities