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] `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))