xmode.code2html fix

release
Slava Pestov 2007-12-06 01:03:27 -05:00
parent bb45b6702b
commit 6bc8995106
1 changed files with 6 additions and 6 deletions

View File

@ -16,9 +16,7 @@ IN: xmode.code2html
tokenize-line htmlize-tokens ;
: htmlize-lines ( lines mode -- )
<pre>
f swap load-mode [ htmlize-line nl ] curry reduce drop
</pre> ;
f swap load-mode [ htmlize-line nl ] curry reduce drop ;
: default-stylesheet ( -- )
<style>
@ -34,9 +32,11 @@ IN: xmode.code2html
<title> dup write </title>
</head>
<body>
over empty?
[ 2drop ]
[ over first find-mode htmlize-lines ] if
<pre>
over empty?
[ 2drop ]
[ over first find-mode htmlize-lines ] if
</pre>
</body>
</html> ;