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

up

Browse Source 
svn: r6442
This commit is contained in:
Jay McCarthy 2007-06-01 15:54:37 +00:00
parent 837ee7e81e
commit 4ccb012bdd
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/web-server/private/util.ss
View File

@ -3,6 +3,7 @@
(lib "plt-match.ss")
(lib "contract.ss")
(lib "string.ss")
(lib "serialize.ss")
(lib "url.ss" "net"))
(provide
url-replace-path)
@ -16,7 +17,16 @@
[directory-part (path? . -> . path?)]
[lowercase-symbol! ((or/c string? bytes?) . -> . symbol?)]
[exn->string ((or/c exn? any/c) . -> . string?)]
[build-path-unless-absolute (path-string? path-string? . -> . path?)])
[build-path-unless-absolute (path-string? path-string? . -> . path?)]
[read/string (string? . -> . serializable?)]
[write/string (serializable? . -> . string?)])
(define (read/string str)
(read (open-input-string str)))
(define (write/string v)
(define str (open-output-string))
(write v str)
(get-output-string str))
; explode-path* : path? -> (listof path?)
(define (explode-path* p)