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

racket/sandbox: fix module-path to path coercion for submod

Browse Source
This commit is contained in:
Matthew Flatt 2012-11-11 09:21:35 -07:00
parent 6b16679b39
commit 740e5007bb
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/racket/sandbox.rkt
View File

@ -116,11 +116,14 @@
(define sep (bytes-ref (path->bytes (simplify-path "/")) 0)) ; '\' on windows
(define (simplify-path* path)
(if (symbol? path)
#f
(simple-form-path (cond [(bytes? path) (bytes->path path)]
[(string? path) (string->path path)]
[else path]))))
(cond
[(symbol? path) #f]
[(and (pair? path) (eq? 'submod (car path)))
(simplify-path* (cadr path))]
[else
(simple-form-path (cond [(bytes? path) (bytes->path path)]
[(string? path) (string->path path)]
[else path]))]))
;; 'read-bytecode is special, it's higher than 'read, but not lower than
;; 'delete.