suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

better contract

Browse Source 
svn: r13308
This commit is contained in:
Jay McCarthy 2009-01-28 21:56:35 +00:00
parent 8b65e2930d
commit 9007a6edb3
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/web-server/insta/insta.ss
View File

@ -59,9 +59,9 @@
(quasisyntax/loc stx
(#,@expanded
(provide/contract (#,start (request? . -> . response?)))
(if extra-files-path
(serve/servlet #,start
#:extra-files-paths (list extra-files-path)
#:launch-browser? launch-browser?)
(serve/servlet #,start
#:launch-browser? launch-browser?)))))]))
(serve/servlet (contract (request? . -> . response?) #,start
'you 'web-server
(list (make-srcloc #f #f #f #f #f)
"start"))
#:extra-files-paths (if extra-files-path (list extra-files-path) empty)
#:launch-browser? launch-browser?))))]))