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

win32: fix `get-file-list' with a single file result

Browse Source
This commit is contained in:
Matthew Flatt 2011-09-10 14:56:53 -06:00
parent 2ecd32b86e
commit 2bd461de50
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/mred/private/wx/win32/filedialog.rkt
View File

@ -181,10 +181,13 @@
(cons
(cast (ptr-add p pos) _pointer _string/utf-16)
(loop (+ end-pos 2))))])))])
(if ((length strs) . < . 2)
#f
(map (lambda (p) (build-path (car strs) p))
(cdr strs))))
(let ([len (length strs)])
(cond
[(len . < . 1) #f]
[(= len 1) (list (string->path (car strs)))]
[else
(map (lambda (p) (build-path (car strs) p))
(cdr strs))])))
(string->path (cast (OPENFILENAME-lpstrFile ofn) _pointer _string/utf-16))))
(when directory
(free (OPENFILENAME-lpstrInitialDir ofn)))