From d12a0f9f8385f01c87b2c01aadad69d24bb955c7 Mon Sep 17 00:00:00 2001
From: admin <admin@vouivredigital.com>
Date: Fri, 29 Sep 2023 20:56:32 +0900
Subject: [PATCH] =?utf8?q?Define=20`flip'=20and=20`char=3D=3F'?=

---
 base.scm | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

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