From 50b592404adddb712b864fd1efdd55f17b1843f3 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 3 May 2014 20:06:03 -0600 Subject: [PATCH] racket/gui: adapt `text-editor-load-handler` to missing-module exception Raise `exn:fail:{filesystem,syntax}:missing-module` instead of `exn:fail:filesystem` when a module file does not exist. original commit: b420967b02f767c50bbae688cad67f2f9cca91e4 --- pkgs/gui-pkgs/gui-lib/mred/private/snipfile.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/pkgs/gui-pkgs/gui-lib/mred/private/snipfile.rkt b/pkgs/gui-pkgs/gui-lib/mred/private/snipfile.rkt index 86113ee5..e0bd52e7 100644 --- a/pkgs/gui-pkgs/gui-lib/mred/private/snipfile.rkt +++ b/pkgs/gui-pkgs/gui-lib/mred/private/snipfile.rkt @@ -263,7 +263,7 @@ (raise-argument-error 'text-editor-load-handler "(or/c #f symbol? (cons/c (or/c #f symbol?) (non-empty-listof symbol?)))" expected-module)) - (let-values ([(in-port src wxme?) (build-input-port filename)]) + (let-values ([(in-port src wxme?) (build-input-port filename expected-module)]) (if wxme? (dynamic-wind (lambda () (void)) @@ -321,8 +321,8 @@ ;; build-input-port : string -> (values input any) ;; constructs an input port for the load handler. Also ;; returns a value representing the source of code read from the file. - (define (build-input-port filename) - (let ([p (open-input-file filename)]) + (define (build-input-port filename expected-module) + (let ([p (open-input-file filename #:for-module? expected-module)]) (port-count-lines! p) (define-values (new-p changed?) (cond @@ -337,7 +337,7 @@ (values new-p filename changed?))) (define (open-input-graphical-file filename) - (let-values ([(p name wxme?) (build-input-port filename)]) + (let-values ([(p name wxme?) (build-input-port filename #f)]) p)) (define open-output-text-editor