Merge branch 'master' of git://factorcode.org/git/factor

[factor.git] / basis / xmode / code2html / code2html.factor
diff --git a/basis/xmode/code2html/code2html.factor b/basis/xmode/code2html/code2html.factor

index 9889a98a999f87b57e3104a30dd0041df1f38eb6..5e032846b0d60bc003ce42ee2392653f4d3b3bd0 100644 (file)
--- a/basis/xmode/code2html/code2html.factor
+++ b/basis/xmode/code2html/code2html.factor
@@ -8,14 +8,14 @@ IN: xmode.code2html
          [ str>> ] [ id>> ] bi [
              name>> swap
              [XML <span class=<->><-></span> XML]
-        ] [ ] if*
+        ] when*
      ] map ;
  
  : htmlize-line ( line-context line rules -- line-context' xml )
      tokenize-line htmlize-tokens ;
  
  : htmlize-lines ( lines mode -- xml )
-    [ f ] 2dip load-mode [ htmlize-line ] curry map nip ;
+    [ f ] 2dip load-mode [ htmlize-line "\n" suffix ] curry map nip ;
  
  : default-stylesheet ( -- xml )
      "resource:basis/xmode/code2html/stylesheet.css"
@@ -24,7 +24,7 @@ IN: xmode.code2html
  
  :: htmlize-stream ( path stream -- xml )
      stream lines
-    [ "" ] [ first find-mode path swap htmlize-lines ]
+    [ "" ] [ path over first find-mode htmlize-lines ]
      if-empty :> input
      default-stylesheet :> stylesheet
      <XML <html>