-! Copyright (C) 2007, 2008 Slava Pestov.\r
-! See http://factorcode.org/license.txt for BSD license.\r
-USING: io io.files io.pathnames io.encodings.utf8 namespaces\r
-http.server http.server.responses http.server.static http\r
-xmode.code2html kernel sequences accessors fry ;\r
-IN: xmode.code2html.responder\r
-\r
-: <sources> ( root -- responder )\r
- [\r
- drop\r
- dup '[\r
- _ utf8 [\r
- _ file-name input-stream get htmlize-stream\r
- ] with-file-reader\r
- ] <html-content>\r
- ] <file-responder> ;\r
+! Copyright (C) 2007, 2008 Slava Pestov.
+! See http://factorcode.org/license.txt for BSD license.
+USING: io io.files io.pathnames io.encodings.utf8 namespaces
+http.server http.server.responses http.server.static http
+xmode.code2html kernel sequences accessors fry ;
+IN: xmode.code2html.responder
+
+: <sources> ( root -- responder )
+ [
+ drop
+ dup '[
+ _ utf8 [
+ _ file-name input-stream get htmlize-stream
+ ] with-file-reader
+ ] <html-content>
+ ] <file-responder> ;