From b111241afebefe801280c6633474d96e88a6cf68 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 18 Jul 2012 03:51:55 -0600 Subject: [PATCH] racket/gui/init: fix load handler --- collects/mred/private/snipfile.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mred/private/snipfile.rkt b/collects/mred/private/snipfile.rkt index f763ea6099..d75c43de2b 100644 --- a/collects/mred/private/snipfile.rkt +++ b/collects/mred/private/snipfile.rkt @@ -327,8 +327,8 @@ (values (open-input-text-editor t 0 'end values filename) #t))] [else (values p #f)])) (when changed? - (port-count-lines! p)) ; in case it's new - (values p filename changed?))) + (port-count-lines! new-p)) ; in case it's new + (values new-p filename changed?))) (define (open-input-graphical-file filename) (let-values ([(p name wxme?) (build-input-port filename)])