mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

s/match-lambda\*/case-lambda/g

Browse source 
* module/system/il/macros.scm: Use case-lambda from srfi-16 rather than
  match-lambda*.
This commit is contained in:
Andy Wingo 2008-05-03 19:13:51 +02:00
parent 67169b2960
commit 3164d8d0f3
1 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

16
module/system/il/macros.scm
View file

@ -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)))))