From f4576c49415f4617ae605a0a5966a9ebaa2dfcd6 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Wed, 12 Sep 2012 15:04:44 +0200 Subject: [PATCH] fixed pad equality; Closes PR 13106 --- collects/2htdp/private/pad.rkt | 4 ++-- collects/2htdp/tests/pad1.rkt | 2 ++ 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/2htdp/private/pad.rkt b/collects/2htdp/private/pad.rkt index c3f344995e..b1481ec98f 100644 --- a/collects/2htdp/private/pad.rkt +++ b/collects/2htdp/private/pad.rkt @@ -33,5 +33,5 @@ (define (pad-event? ke) (pair? (member ke pad-buttons))) -(define (pad=? ke) - (pair? (member ke pad-buttons))) +(define (pad=? ke kq) + (and (pad-event? ke) (pad-event? kq) (string=? ke kq))) diff --git a/collects/2htdp/tests/pad1.rkt b/collects/2htdp/tests/pad1.rkt index 5f39242c19..489e1db21b 100644 --- a/collects/2htdp/tests/pad1.rkt +++ b/collects/2htdp/tests/pad1.rkt @@ -2,6 +2,8 @@ (require 2htdp/image 2htdp/universe) +(pad=? "left" "left") + ;; constants (define width 1200) (define height 300)