From ff40faf473f8aa2e9774358366bd933ff554d95e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 20 Feb 2004 17:01:55 +0000 Subject: [PATCH] . original commit: 98a02bf94132e4dfe54e50d99ca32fd186e75b3d --- collects/mred/mred.ss | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss index b6968a13..7b38b4d5 100644 --- a/collects/mred/mred.ss +++ b/collects/mred/mred.ss @@ -2415,14 +2415,17 @@ (opt-lambda ([file #f] [format 'guess] [show-errors? #t]) (let* ([temp-filename?-box (box #f)] [old-filename (super-get-filename temp-filename?-box)]) - (let ([file (if (or (not file) (string=? file "")) - (if (or (equal? file "") (not old-filename) (unbox temp-filename?-box)) - (let ([path (if old-filename - (path-only old-filename) - #f)]) - (get-file path)) - old-filename) - file)]) + (let* ([file (cond + [(or (not (path-string? file)) + (equal? file "")) + (if (or (equal? file "") (not old-filename) (unbox temp-filename?-box)) + (let ([path (if old-filename + (path-only old-filename) + #f)]) + (get-file path)) + old-filename)] + [(path? file) file] + [else (string->path file)])]) (and file (can-load-file? file (-format-filter format))