13 lines
274 B
Scheme
13 lines
274 B
Scheme
#lang scheme/base
|
|
(require (lib "url.ss" "net")
|
|
(lib "plt-match.ss"))
|
|
(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])) |