From 5a8618a74e13341952d530ec04f2cce1f542903c Mon Sep 17 00:00:00 2001
From: Patrick Mahoney <paddy.mahoney@gmail.com>
Date: Tue, 21 Aug 2012 19:52:40 -0400
Subject: [PATCH] Remove mzlib/match dependency

---
 collects/frtime/demos/pong.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/frtime/demos/pong.rkt b/collects/frtime/demos/pong.rkt
index 5d0a036cbe..250c2db9e6 100644
--- a/collects/frtime/demos/pong.rkt
+++ b/collects/frtime/demos/pong.rkt
@@ -2,7 +2,7 @@
 (require
  frtime/animation
  frtime/gui
- (all-except mzlib/match match))
+ (only-in racket/match match-lambda))
 
 (define paddle-radius (make-slider "Paddle radius" 10 30 20))
 (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))
      . =#=> .
      (match-lambda
-       [(_ y) (when (and (> y 150) (< y 250))
+       [(list _ y) (when (and (> y 150) (< y 250))
                 add1)])))
    0))