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

rename function scale-to-fit to avoid conflict

Browse Source 
with newly introduced function with that name
This commit is contained in:
Robby Findler 2012-08-22 22:47:50 -05:00
parent 7647e94eee
commit 8ed42e6162
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/redex/examples/list-machine/slides.rkt
View File

@ -55,14 +55,14 @@
(list "dom(" arg ")"))])
(t)))
(define (scale-to-fit p)
(define (scale-to-fit/m p)
(scale p (min (/ (- 1024 margin margin) (pict-width p))
(/ (- 768 margin margin) (pict-height p)))))
(slide
(with-rewriters
(λ ()
(scale-to-fit
(scale-to-fit/m
(ht-append
40
(language->pict list-machine #:nts '(a p ι))
@ -71,13 +71,13 @@
(slide
(with-rewriters
(λ ()
(scale-to-fit
(scale-to-fit/m
(judgment-form->pict check-instr)))))
(slide
(with-rewriters
(λ ()
(scale-to-fit
(scale-to-fit/m
(vc-append
40
(judgment-form->pict check-block)