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

fix conversion of pathnames to module names

Browse Source 
svn: r5376
This commit is contained in:
Matthew Flatt 2007-01-17 07:02:16 +00:00
parent b8bf48fee7
commit 7c153c3248
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/drscheme/private/module-language.ss
View File

@ -427,17 +427,18 @@
(and path
(let-values ([(base name dir)
(split-path (normal-case-path (simplify-path (expand-path path) #f)))])
(string->symbol (format ",~a" (path->string base))))))
(string->symbol (format ",~a" (bytes->string/latin-1 (path->bytes base)))))))
;; build-name : path -> symbol
(define (build-name pre-path)
(let ([path (normal-case-path (simplify-path (expand-path pre-path) #f))])
(let-values ([(base name dir) (split-path path)])
(string->symbol (format ",~a"
(path->string
(build-path
base
(remove-suffix (path->string name)))))))))
(bytes->string/latin-1
(path->bytes
(build-path
base
(remove-suffix (path->string name))))))))))
;; get-filename : port -> (union string #f)
;; extracts the file the definitions window is being saved in, if any.