From 5fcb4cb777045561fe635e5d2c9c69ba0a2fcb48 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 21 Jan 2016 22:02:24 -0500 Subject: [PATCH] Rename "matcher" to "trie". --- prospect-gl/2d.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/prospect-gl/2d.rkt b/prospect-gl/2d.rkt index 76a7457..7e06932 100644 --- a/prospect-gl/2d.rkt +++ b/prospect-gl/2d.rkt @@ -303,15 +303,15 @@ (flush-texture-cache!)) (define (process-stop-requests! p) - (when (matcher-match-value (patch-added p) 'stop #f) + (when (trie-lookup (patch-added p) 'stop #f) (send (send this get-top-level-window) show #f))) (define (process-fullscreen-requests! p) (define changed? #f) - (when (matcher-match-value (patch-removed p) 'fullscreen #f) + (when (trie-lookup (patch-removed p) 'fullscreen #f) (set! changed? #t) (set! fullscreen? #f)) - (when (matcher-match-value (patch-added p) 'fullscreen #f) + (when (trie-lookup (patch-added p) 'fullscreen #f) (set! changed? #t) (set! fullscreen? #t)) (when changed?