From c11a865486dfc8e891be3d5ec3e4feb40fa42cf2 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 13 May 2019 17:11:46 -0500 Subject: [PATCH] unneeded --- quad/quad/position.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/quad/quad/position.rkt b/quad/quad/position.rkt index 93643033..b18eef37 100644 --- a/quad/quad/position.rkt +++ b/quad/quad/position.rkt @@ -20,14 +20,14 @@ (define ascender-cache (make-hash)) (define (ascender q) - (define font-key-val (quad-ref q font-path-key #false)) + (define font-key-val (quad-ref q font-path-key)) (unless font-key-val (error 'ascender-no-font-key)) (hash-ref! ascender-cache font-key-val (λ () (font-ascent (get-font font-key-val))))) (define units-cache (make-hash)) (define (units-per-em q) - (define font-key-val (quad-ref q font-path-key #false)) + (define font-key-val (quad-ref q font-path-key)) (unless font-key-val (error 'units-per-em-no-font-key)) (hash-ref! units-cache font-key-val (λ () (font-units-per-em (get-font font-key-val)))))