10 lines
254 B
Scheme
10 lines
254 B
Scheme
#lang scheme/base
|
|
(require net/url
|
|
(for-template "web.ss")
|
|
"web.ss"
|
|
"../servlet/helpers.ss")
|
|
(provide redirect/get)
|
|
|
|
(define (redirect/get)
|
|
(send/suspend/url (lambda (k-url) (redirect-to (url->string k-url) temporarily))))
|