conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

avoid redefinition

This commit is contained in:
Yuichi Nishiwaki 2015-07-09 02:19:09 +09:00
parent 685d08301a
commit 19e82389f1
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
contrib/90.array/array.scm
View File

@ -9,11 +9,6 @@
(head array-head set-array-head!) (head array-head set-array-head!)
(tail array-tail set-array-tail!)) (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) (define (translate ary i)
(floor-remainder i (array-size ary))) (floor-remainder i (array-size ary)))