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

Remove opt-lambda uses, unused imports

Browse Source
This commit is contained in:
Patrick Mahoney 2012-08-21 14:56:23 -04:00 committed by Gregory Cooper
parent a02d53130e
commit 5fd7e2fc1a
1 changed files with 387 additions and 388 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/frtime/animation.rkt
View File

@ -16,8 +16,7 @@
racket/class racket/class
frtime/frlibs/list frtime/frlibs/list
frtime/frlibs/etc frtime/frlibs/etc
frtime/frlibs/math frtime/frlibs/math)
#;(rename-in racket [define-struct mz:define-struct]))
(require (for-syntax (only-in racket/base build-list) (require (for-syntax (only-in racket/base build-list)
(only-in racket/function identity))) (only-in racket/function identity)))
@ -26,7 +25,7 @@
(define fresh-anim (define fresh-anim
(let ([first #t]) (let ([first #t])
(opt-lambda ([x 400] [y 400] [title "Animation - DrRacket"]) (lambda ([x 400] [y 400] [title "Animation - DrRacket"])
(if first (if first
(set! first #f) (set! first #f)
(begin (begin
@ -285,7 +284,7 @@
(apply make-rgb (map fix (list r g b))))) (apply make-rgb (map fix (list r g b)))))
(define range-control (define range-control
(opt-lambda (up down limit [init 0]) (lambda (up down limit [init 0])
(accum-b (accum-b
(merge-e (up . -=> . (inc-max limit)) (merge-e (up . -=> . (inc-max limit))
(down . -=> . (dec-min 0))) (down . -=> . (dec-min 0)))