suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove mzlib/match dependency

Browse Source
This commit is contained in:
Patrick Mahoney 2012-08-21 19:52:40 -04:00 committed by Gregory Cooper
parent e64c20d79f
commit 5a8618a74e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/frtime/demos/pong.rkt
View File

@ -2,7 +2,7 @@
(require (require
frtime/animation frtime/animation
frtime/gui frtime/gui
(all-except mzlib/match match)) (only-in racket/match match-lambda))
(define paddle-radius (make-slider "Paddle radius" 10 30 20)) (define paddle-radius (make-slider "Paddle radius" 10 30 20))
(define key-control-speed (* 0.01 (make-slider "Key control speed" 1 50 25))) (define key-control-speed (* 0.01 (make-slider "Key control speed" 1 50 25)))
@ -91,7 +91,7 @@
((snapshot-e (when-e (x-pred (posn-x ball-pos))) (posn-y ball-pos)) ((snapshot-e (when-e (x-pred (posn-x ball-pos))) (posn-y ball-pos))
. =#=> . . =#=> .
(match-lambda (match-lambda
[(_ y) (when (and (> y 150) (< y 250)) [(list _ y) (when (and (> y 150) (< y 250))
add1)]))) add1)])))
0)) 0))