From 646b836183125ed2ccc0f8b8cc97903c9af02085 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 29 Jun 2014 09:59:37 +0100 Subject: [PATCH] racket/draw: fix bad rounding of paper sizes in points --- pkgs/draw-pkgs/draw-lib/racket/draw/private/ps-setup.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/pkgs/draw-pkgs/draw-lib/racket/draw/private/ps-setup.rkt b/pkgs/draw-pkgs/draw-lib/racket/draw/private/ps-setup.rkt index 6a1ba170b2..ec2769eab0 100644 --- a/pkgs/draw-pkgs/draw-lib/racket/draw/private/ps-setup.rkt +++ b/pkgs/draw-pkgs/draw-lib/racket/draw/private/ps-setup.rkt @@ -18,9 +18,9 @@ (define paper-sizes '(("A4 210 x 297 mm" 595 842) - ("A3 297 x 420 mm" 842 1191) - ("Letter 8 1/2 x 11 in" 612 791) - ("Legal 8 1/2 x 14 in" 612 1009))) + ("A3 297 x 420 mm" 842 1190) + ("Letter 8 1/2 x 11 in" 612 792) + ("Legal 8 1/2 x 14 in" 612 1008))) (define (paper-name-string? s) (and (string? s)