From 19e82389f1e8d14c65be000c4d538e90fd887d3b Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Thu, 9 Jul 2015 02:19:09 +0900 Subject: [PATCH] avoid redefinition --- contrib/90.array/array.scm | 5 ----- 1 file changed, 5 deletions(-) diff --git a/contrib/90.array/array.scm b/contrib/90.array/array.scm index 43abd388..7cd2ccdf 100644 --- 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)))