tjhintz/simple
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Cleaning up redirect.

Browse Source
This commit is contained in:
Thomas Hintz
2015-08-01 11:11:05 -07:00
parent c5ae5c5e58
commit 8051b3bdeb
1 changed files with 1 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
simple.scm
View File

@@ -221,11 +221,7 @@
($ 'sid)))) ($ 'sid))))
(define (redirect-to new-uri) (define (redirect-to new-uri)
(display (string-append "<html><head><meta http-equiv=\"refresh\" content=\"0; URL=" (signal (make-property-condition 'redirect 'uri new-uri)))
(cond ((string? new-uri) new-uri)
((uri-reference? new-uri) (uri->string new-uri))
(else (abort "invalid URI construct")))
"\"></head></html")))
(define ($ var #!optional default/converter) (define ($ var #!optional default/converter)
(unless (http-request-variables) (unless (http-request-variables)