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

racket/gui/init: fix load handler

Browse Source 
(cherry picked from commit b111241afe)
This commit is contained in:
Matthew Flatt 2012-07-18 03:51:55 -06:00 committed by Ryan Culpepper
parent 66f5696400
commit a0f7f72780
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/private/snipfile.rkt
View File

@ -327,8 +327,8 @@
(values (open-input-text-editor t 0 'end values filename) #t))] (values (open-input-text-editor t 0 'end values filename) #t))]
[else (values p #f)])) [else (values p #f)]))
(when changed? (when changed?
(port-count-lines! p)) ; in case it's new (port-count-lines! new-p)) ; in case it's new
(values p filename changed?))) (values new-p filename changed?)))
(define (open-input-graphical-file filename) (define (open-input-graphical-file filename)
(let-values ([(p name wxme?) (build-input-port filename)]) (let-values ([(p name wxme?) (build-input-port filename)])