From 86a27e95b7de358b8b9f43c707f191b9ca159457 Mon Sep 17 00:00:00 2001
From: "Sunrim KIM (keen)" <3han5chou7@gmail.com>
Date: Wed, 28 May 2014 22:49:53 +0900
Subject: [PATCH 1/2] add alias of `modulo`, `remainder`, `quotient`

---
 src/number.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/number.c b/src/number.c
index fb9a4c1f..45fd54f1 100644
--- a/src/number.c
+++ b/src/number.c
@@ -777,6 +777,9 @@ pic_init_number(pic_state *pic)
   pic_defun(pic, "floor-remainder", pic_number_floor_remainder);
   pic_defun(pic, "truncate-quotient", pic_number_trunc_quotient);
   pic_defun(pic, "truncate-remainder", pic_number_trunc_remainder);
+  pic_defun(pic, "modulo", pic_number_floor_remainder);
+  pic_defun(pic, "quotient", pic_number_trunc_quotient);
+  pic_defun(pic, "remainder", pic_number_trunc_remainder);
   pic_gc_arena_restore(pic, ai);
 
   pic_defun(pic, "gcd", pic_number_gcd);

From a9c4cefe882968e61f663a81c8ce5e1946ec51e4 Mon Sep 17 00:00:00 2001
From: "Sunrim KIM (keen)" <3han5chou7@gmail.com>
Date: Thu, 29 May 2014 01:22:19 +0900
Subject: [PATCH 2/2] `quotient` is defined in base

---
 piclib/srfi/95.scm | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/piclib/srfi/95.scm b/piclib/srfi/95.scm
index 9effaece..0036da62 100644
--- a/piclib/srfi/95.scm
+++ b/piclib/srfi/95.scm
@@ -14,9 +14,6 @@
   (define (identity x)
     x)
 
-  (define (quotient a b)
-    (exact (floor (/ a b))))
-
   (define (merge ls1 ls2 less? . opt-key)
     (let ((key (if (null? opt-key) identity (car opt-key))))
       (let rec ((arg1 ls1) (arg2 ls2))