From 8ed42e616227708fff86a7f0f9a8bc3dd77f5549 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 22 Aug 2012 22:47:50 -0500 Subject: [PATCH] rename function scale-to-fit to avoid conflict with newly introduced function with that name --- collects/redex/examples/list-machine/slides.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/redex/examples/list-machine/slides.rkt b/collects/redex/examples/list-machine/slides.rkt index 2c9011f731..faef424a45 100644 --- a/collects/redex/examples/list-machine/slides.rkt +++ b/collects/redex/examples/list-machine/slides.rkt @@ -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)