15 lines
272 B
Scheme
15 lines
272 B
Scheme
#lang scheme/base
|
|
(require net/url
|
|
mzlib/plt-match)
|
|
; XXX contract
|
|
(provide xexpr+extras->xexpr)
|
|
|
|
(define xexpr+extras->xexpr
|
|
(match-lambda
|
|
[(list xe ...)
|
|
(map xexpr+extras->xexpr xe)]
|
|
[(and url (? url?))
|
|
(url->string url)]
|
|
[x
|
|
x]))
|