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

use path-element->string

Browse Source 
svn: r6146
This commit is contained in:
Eli Barzilay 2007-05-04 20:55:19 +00:00
parent 41d4b5d28e
commit 8661413b7f
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/path-dialog.ss
View File

@ -50,8 +50,8 @@
(define-struct pname (path string isdir? okstring? nulstring))
(define (path->pname path isdir?)
(let* ([name (if (member (path->string path) '("." ".."))
(path->string path) ; avoid segfault bug (PR8481)
(bytes->string/locale (path-element->bytes path)))]
(path->string path) ; avoid errors
(path-element->string path))]
[name (regexp-replace end-separators-rx name "")]
[name (if (<= 199 (string-length name))
(string-append (substring name 0 195) "...")