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

prefix -> require only image?

Browse Source 
svn: r5267
This commit is contained in:
Eli Barzilay 2007-01-08 22:12:33 +00:00
parent cd2f2ee56b
commit 4bd2d14b7c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/htdp/world.ss
View File

@ -27,7 +27,7 @@
(lib "mred.ss" "mred") (lib "mred.ss" "mred")
(lib "error.ss" "htdp") (lib "error.ss" "htdp")
(lib "image.ss" "htdp") (lib "image.ss" "htdp")
(prefix beg: (lib "htdp-beginner.ss" "lang")) (only (lib "htdp-beginner.ss" "lang") image?)
(lib "prim.ss" "lang")) (lib "prim.ss" "lang"))
(require (lib "bitmap-label.ss" "mrlib") (require (lib "bitmap-label.ss" "mrlib")
@ -270,8 +270,8 @@
;; Symbol Any String String *-> Void ;; Symbol Any String String *-> Void
(define (check-image tag i rank . other-message) (define (check-image tag i rank . other-message)
(if (and (pair? other-message) (string? (car other-message))) (if (and (pair? other-message) (string? (car other-message)))
(check-arg tag (beg:image? i) (car other-message) rank i) (check-arg tag (image? i) (car other-message) rank i)
(check-arg tag (beg:image? i) "image" rank i))) (check-arg tag (image? i) "image" rank i)))
;; Symbol Any String -> Void ;; Symbol Any String -> Void
(define (check-color tag width rank) (define (check-color tag width rank)
@ -699,7 +699,7 @@
(define-callback redraw "redraw function" (f) () (define-callback redraw "redraw function" (f) ()
(with-handlers ([exn:break? break-handler][exn? exn-handler]) (with-handlers ([exn:break? break-handler][exn? exn-handler])
(define img (f the-world)) (define img (f the-world))
(check-result 'on-redraw (lambda (x) (beg:image? x)) "image" img) (check-result 'on-redraw (lambda (x) (image? x)) "image" img)
(update-frame img))) (update-frame img)))
;; f : [World KeyEvent -> World] ;; f : [World KeyEvent -> World]