avoid redefinition

2015-07-09 02:19:09 +09:00 · 2015-07-09 02:19:09 +09:00 · 19e82389f1
parent 685d08301a
commit 19e82389f1
1 changed files with 0 additions and 5 deletions
--- a/contrib/90.array/array.scm
+++ b/contrib/90.array/array.scm
@ -9,11 +9,6 @@
    (head array-head set-array-head!)
    (tail array-tail set-array-tail!))

-  (define (floor-remainder i j)
-    (call-with-values (lambda () (floor/ i j))
-      (lambda (q r)
-        r)))
-
  (define (translate ary i)
    (floor-remainder i (array-size ary)))