18 lines
388 B
Racket
18 lines
388 B
Racket
#lang racket/base
|
|
|
|
(require racket/format
|
|
racket/path
|
|
racket/string)
|
|
|
|
(provide path->rash-string)
|
|
|
|
(define (path->rash-string path)
|
|
(define text
|
|
(cond
|
|
[(path? path) (path->string path)]
|
|
[(string? path) path]
|
|
[else (path->string (string->path (~a path)))]))
|
|
(if (eq? (system-type 'os) 'windows)
|
|
(string-replace text "\\" "/")
|
|
text))
|