Remove unused procedures.
This commit is contained in:
parent
816d9d149d
commit
3925e39737
1 changed files with 0 additions and 4 deletions
|
@ -176,10 +176,6 @@
|
||||||
(not (null? ($ (grid-ref grid x y)))))))
|
(not (null? ($ (grid-ref grid x y)))))))
|
||||||
(define grid-info (spawn ^grid-info))
|
(define grid-info (spawn ^grid-info))
|
||||||
|
|
||||||
(define (wrap-x x)
|
|
||||||
(modulo x width))
|
|
||||||
(define (wrap-y y)
|
|
||||||
(modulo y height))
|
|
||||||
(define (delq item lst)
|
(define (delq item lst)
|
||||||
(let lp ((lst lst))
|
(let lp ((lst lst))
|
||||||
(match lst
|
(match lst
|
||||||
|
|
Loading…
Add table
Reference in a new issue