From: admin <admin@vouivredigital.com>
Date: Fri, 29 Sep 2023 11:56:32 +0000 (+0900)
Subject: Define `flip' and `char=?'
X-Git-Tag: v0.1.0~1
X-Git-Url: https://git.vouivredigital.com/?a=commitdiff_plain;h=d12a0f9f8385f01c87b2c01aadad69d24bb955c7;p=vouivre.git

Define `flip' and `char=?'
---

diff --git a/base.scm b/base.scm
index a2aef3d..d13cb85 100644
--- a/base.scm
+++ b/base.scm
@@ -1,10 +1,12 @@
-(define-module (vdc base)
+(define-module (vouivre base)
   #:use-module ((guile) #:select (1+) #:prefix guile:)
   #:use-module ((rnrs base) #:prefix rnrs:)
   #:use-module ((srfi srfi-1) #:prefix srfi-1:)
-  #:use-module (vdc curry)
+  #:use-module (vouivre curry)
   #:export
-  (∘)
+  (∘
+   ⊙
+   flip)
   #:replace
   (boolean?
    not
@@ -142,9 +144,7 @@
    reduce-right
    map
    1+
-   identity
-   )
-  )
+   identity))
 
 ;; abbreviation
 (define-syntax cudefine (identifier-syntax curried-untyped-define))
@@ -167,6 +167,9 @@
 (∷ char? (0 . 0))
 (cudefine (char? x) (rnrs:char? x))
 
+(∷ char=? (0 . (0 . 0)))
+(cudefine (char=? x y) (rnrs:char=? x y))
+
 (∷ char<? (0 . (0 . 0)))
 (cudefine (char<? x y) (rnrs:char<? x y))
 
@@ -582,3 +585,4 @@
 (definec (identity x) x)
 (definec (∘ g f) (λc x (g (f x))))
 (definec (⊙ f g) (∘ g f))
+(definec (flip f) (λc y (λc x (f x y))))