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