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

fixed pad equality; Closes PR 13106

Browse Source
This commit is contained in:
Matthias Felleisen 2012-09-12 15:04:44 +02:00
parent c069fa67a9
commit f4576c4941
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/2htdp/private/pad.rkt
View File

@ -33,5 +33,5 @@
(define (pad-event? ke) (define (pad-event? ke)
(pair? (member ke pad-buttons))) (pair? (member ke pad-buttons)))
(define (pad=? ke) (define (pad=? ke kq)
(pair? (member ke pad-buttons))) (and (pad-event? ke) (pad-event? kq) (string=? ke kq)))

2
collects/2htdp/tests/pad1.rkt
View File

@ -2,6 +2,8 @@
(require 2htdp/image 2htdp/universe) (require 2htdp/image 2htdp/universe)
(pad=? "left" "left")
;; constants ;; constants
(define width 1200) (define width 1200)
(define height 300) (define height 300)