`quotient` is defined in base

2014-05-29 01:22:19 +09:00 · 2014-05-29 01:22:19 +09:00 · a9c4cefe88
parent 86a27e95b7
commit a9c4cefe88
1 changed files with 0 additions and 3 deletions
--- 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))