From 10df7a14a5f981daadc57da05eacb15bc1267c30 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 2 Jan 2019 17:24:34 -0800 Subject: [PATCH] conundrum --- quad/quad/break.rkt | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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)]