diff --git a/quad/quad/break.rkt b/quad/quad/break.rkt index 0bb6e429..e4fd0e40 100644 --- 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)]