fixed pad equality; Closes PR 13106

2012-09-12 15:04:44 +02:00 · 2012-09-12 15:04:44 +02:00 · f4576c4941
commit f4576c4941
parent c069fa67a9
2 changed files with 4 additions and 2 deletions
--- 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)))
--- 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)