syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Update for route.rkt -> trie.rkt switch

This commit is contained in:
Tony Garnock-Jones 2016-03-15 09:53:52 -04:00
parent 5fcb4cb777
commit a7eae9b00e
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
prospect-gl/2d.rkt
View File

@ -23,7 +23,7 @@
(require (prefix-in pict: pict)) (require (prefix-in pict: pict))
(require prospect) (require prospect)
(require prospect/route) (require prospect/trie)
(require prospect/ground) (require prospect/ground)
(require "texture.rkt") (require "texture.rkt")
@ -180,8 +180,8 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define scene-projection (compile-projection (?! (scene ? ?)))) (define scene-projection (?! (scene ? ?)))
(define sprite-projection (compile-projection (?! (sprite ? ?)))) (define sprite-projection (?! (sprite ? ?)))
(define sprite-order (define sprite-order
(order 'sprite-order (order 'sprite-order

4
prospect-gl/examples/basic.rkt
View File

@ -4,8 +4,8 @@
(require 2htdp/image) (require 2htdp/image)
(require "../2d.rkt") (require "../2d.rkt")
(define window-projection (compile-projection (at-meta (?! (window ? ?))))) (define window-projection (at-meta (?! (window ? ?))))
(define key-pressed-projection (compile-projection (key-pressed (?!)))) (define key-pressed-projection (key-pressed (?!)))
(define (spawn-background) (define (spawn-background)
(spawn (lambda (e s) (spawn (lambda (e s)