From 2fa90c59b6e1e8325c1ff7af3341169a10d37c0d Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 3 Dec 2015 20:44:37 -0500 Subject: [PATCH] Adapt to new generalized spawn boot actions --- prospect-gl/examples/basic.rkt | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/prospect-gl/examples/basic.rkt b/prospect-gl/examples/basic.rkt index d7edf7d..03350f2 100644 --- a/prospect-gl/examples/basic.rkt +++ b/prospect-gl/examples/basic.rkt @@ -26,9 +26,10 @@ `())))] [_ #f])) (void) - (sub (window ? ?) #:meta-level 1) - ;; (assert 'fullscreen #:meta-level 1) - )) + (patch-seq + (sub (window ? ?) #:meta-level 1) + ;; (assert 'fullscreen #:meta-level 1) + ))) (define (spawn-player-avatar) (local-require 2htdp/planetcute) @@ -56,10 +57,11 @@ (move-to x y keys-down)))] [_ #f])) (list 100 100 (set)) - (update-sprites - (simple-sprite -0.5 100 100 (image-width CC) (image-height CC) CC)) - (sub (frame-event ? ? ? ?) #:meta-level 1) - (sub (key-pressed ?)))) + (patch-seq + (update-sprites + (simple-sprite -0.5 100 100 (image-width CC) (image-height CC) CC)) + (sub (frame-event ? ? ? ?) #:meta-level 1) + (sub (key-pressed ?))))) (define (spawn-frame-counter) (spawn (lambda (e s)