From 1666384271d21e98aec4bd4c84b0c30148adf1e6 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 4 Dec 2018 12:32:14 -0800 Subject: [PATCH] nit --- quad/quad/quad.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/quad/quad/quad.rkt b/quad/quad/quad.rkt index d4c878ab..729c1376 100644 --- a/quad/quad/quad.rkt +++ b/quad/quad/quad.rkt @@ -37,7 +37,7 @@ (define (draw q [surface #f]) (define (default-draw-proc q surface) (for-each (λ (e) (draw e surface)) (elems q))) - ((hash-ref (attrs q) 'draw (const default-draw-proc)) q surface))]) + ((hash-ref (attrs q) 'draw (λ () default-draw-proc)) q surface))]) (define (quad-attrs? x) (and (hash? x) (hash-eq? x))) (define (quad-elem? x) (or (char? x) (string? x) ($quad? x)))