diff --git a/extra/webapps/file/file.factor b/extra/webapps/file/file.factor index 5ec52ab96b..3a8feddbad 100755 --- a/extra/webapps/file/file.factor +++ b/extra/webapps/file/file.factor @@ -35,7 +35,6 @@ IN: webapps.file SYMBOL: serve-file-hook [ - nip file-response stdio get stream-copy ] serve-file-hook set-global @@ -47,7 +46,7 @@ SYMBOL: serve-file-hook "method" get "head" = [ file-response ] [ - >r dup r> + >r dup swap r> serve-file-hook get call ] if ] if ; diff --git a/extra/webapps/planet/planet.furnace b/extra/webapps/planet/planet.furnace index 949ee7c172..d8640f8271 100644 --- a/extra/webapps/planet/planet.furnace +++ b/extra/webapps/planet/planet.furnace @@ -1,4 +1,5 @@ -<% USING: namespaces html.elements webapps.planet sequences ; %> +<% USING: namespaces html.elements webapps.planet sequences +furnace ; %>