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

.

Browse Source 
original commit: 98a02bf94132e4dfe54e50d99ca32fd186e75b3d
This commit is contained in:
Matthew Flatt 2004-02-20 17:01:55 +00:00
parent 8cbf7c2dc7
commit ff40faf473
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/mred/mred.ss
View File

@ -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))