Skip to content

Commit 1f49402

Browse files
usaocmflatt
authored andcommitted
Zuo: remove unused private modulo binding
This is a remnant of the change that removed `modulo` from `zuo/kernel`, but actually `modulo` isn't used anywhere in private modules. Moreover, the implementation actually has a bug: `(+ r n)` should be `(+ r m)`. I think it's best to just remove it since it's unused.
1 parent 530de04 commit 1f49402

File tree

1 file changed

+0
-10
lines changed
  • racket/src/zuo/lib/zuo/private/base-common

1 file changed

+0
-10
lines changed

racket/src/zuo/lib/zuo/private/base-common/lib.zuo

Lines changed: 0 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -41,13 +41,3 @@
4141

4242
(define (gensym sym)
4343
(string->uninterned-symbol (symbol->string sym)))
44-
45-
(define (modulo n m)
46-
(let ([r (remainder n m)])
47-
(if (>= m 0)
48-
(if (>= n 0)
49-
r
50-
(- r))
51-
(if (< n 0)
52-
r
53-
(+ r n)))))

0 commit comments

Comments
 (0)