steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

More webapp fixes

release
Slava Pestov 2007-12-06 01:35:01 -05:00
parent be101ef500
commit c97b5fd6ff
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/webapps/file/file.factor
View File

@ -35,7 +35,6 @@ IN: webapps.file
SYMBOL: serve-file-hook SYMBOL: serve-file-hook
[ [
nip
file-response file-response
stdio get stream-copy stdio get stream-copy
] serve-file-hook set-global ] serve-file-hook set-global
@ -47,7 +46,7 @@ SYMBOL: serve-file-hook
"method" get "head" = [ "method" get "head" = [
file-response file-response
] [ ] [
>r dup <file-reader> r> >r dup <file-reader> swap r>
serve-file-hook get call serve-file-hook get call
] if ] if
] if ; ] if ;

3
extra/webapps/planet/planet.furnace
View File

@ -1,4 +1,5 @@
<% USING: namespaces html.elements webapps.planet sequences ; %> <% USING: namespaces html.elements webapps.planet sequences
furnace ; %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">