From 3164d8d0f35bef52f88b6ac5e5221525e229e781 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Sat, 3 May 2008 19:13:51 +0200
Subject: [PATCH] s/match-lambda\*/case-lambda/g

* module/system/il/macros.scm: Use case-lambda from srfi-16 rather than
  match-lambda*.
---
 module/system/il/macros.scm | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/module/system/il/macros.scm b/module/system/il/macros.scm
index c2a1a37d1..5f7049fc8 100644
--- a/module/system/il/macros.scm
+++ b/module/system/il/macros.scm
@@ -20,7 +20,7 @@
 ;;; Code:
 
 (define-module (system il macros)
-  :use-module (ice-9 match))
+  :use-module (srfi srfi-16))
 
 (define (make-label) (gensym ":L"))
 (define (make-sym) (gensym "_"))
@@ -34,7 +34,7 @@
 ;; 
 ;; (@if X (@and Y...) #f)
 (define @and
-  (match-lambda*
+  (case-lambda
     (() #t)
     ((x) x)
     ((x . rest) `(@if ,x (@and ,@rest) #f))))
@@ -43,7 +43,7 @@
 ;; 
 ;; (@let ((@_ X)) (@if @_ @_ (@or Y...)))
 (define @or
-  (match-lambda*
+  (case-lambda
     (() #f)
     ((x) x)
     ((x . rest)
@@ -86,27 +86,27 @@
 ;(define (@>= x y)	`(@@ ge? ,x ,y))
 
 (define @+
-  (match-lambda*
+  (case-lambda
     (() 0)
     ((x) x)
     ((x y) `(@@ add ,x ,y))
     ((x y . rest) `(@@ add ,x (@+ ,y ,@rest)))))
 
 (define @*
-  (match-lambda*
+  (case-lambda
     (() 1)
     ((x) x)
     ((x y) `(@@ mul ,x ,y))
     ((x y . rest) `(@@ mul ,x (@* ,y ,@rest)))))
 
 (define @-
-  (match-lambda*
+  (case-lambda
     ((x) `(@@ sub 0 ,x))
     ((x y) `(@@ sub ,x ,y))
     ((x y . rest) `(@@ sub ,x (@+ ,y ,@rest)))))
 
 (define @/
-  (match-lambda*
+  (case-lambda
     ((x) `(@@ div 1 ,x))
     ((x y) `(@@ div ,x ,y))
     ((x y . rest) `(@@ div ,x (@* ,y ,@rest)))))
@@ -296,7 +296,7 @@
 ;;;
 
 (define @cons*
-  (match-lambda*
+  (case-lambda
     ((x) x)
     ((x y) `(@cons ,x ,y))
     ((x y . rest) `(@cons ,x (@cons* ,y ,@rest)))))