conundrum

5 years ago · 10df7a14a5
parent 25598e662d
commit 10df7a14a5
1 changed files with 1 additions and 2 deletions
--- a/quad/quad/break.rkt
+++ b/quad/quad/break.rkt
@ -8,8 +8,7 @@
                    #'(when debug (report EXPR ...)))]))

 (define distance-cache (make-hasheq))
-(define/contract (distance q)
-  (any/c . -> . real?)
+(define (distance q)
  (hash-ref! distance-cache (cond
                              [(quad? q)
                               (hash-ref (send q attrs) 'id q)]