From a7eae9b00e82341ddf1419acbd7700e8f39f1419 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Tue, 15 Mar 2016 09:53:52 -0400 Subject: [PATCH] Update for route.rkt -> trie.rkt switch --- prospect-gl/2d.rkt | 6 +++--- prospect-gl/examples/basic.rkt | 4 ++-- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/prospect-gl/2d.rkt b/prospect-gl/2d.rkt index 7e06932..b6c51b5 100644 --- a/prospect-gl/2d.rkt +++ b/prospect-gl/2d.rkt @@ -23,7 +23,7 @@ (require (prefix-in pict: pict)) (require prospect) -(require prospect/route) +(require prospect/trie) (require prospect/ground) (require "texture.rkt") @@ -180,8 +180,8 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(define scene-projection (compile-projection (?! (scene ? ?)))) -(define sprite-projection (compile-projection (?! (sprite ? ?)))) +(define scene-projection (?! (scene ? ?))) +(define sprite-projection (?! (sprite ? ?))) (define sprite-order (order 'sprite-order diff --git a/prospect-gl/examples/basic.rkt b/prospect-gl/examples/basic.rkt index 526a8c7..6251183 100644 --- a/prospect-gl/examples/basic.rkt +++ b/prospect-gl/examples/basic.rkt @@ -4,8 +4,8 @@ (require 2htdp/image) (require "../2d.rkt") -(define window-projection (compile-projection (at-meta (?! (window ? ?))))) -(define key-pressed-projection (compile-projection (key-pressed (?!)))) +(define window-projection (at-meta (?! (window ? ?)))) +(define key-pressed-projection (key-pressed (?!))) (define (spawn-background) (spawn (lambda (e s)