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