autotests/html/highlight.scheme.html

0001 <!DOCTYPE html>
0002 <html><head>
0003 <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
0004 <title>highlight.scheme</title>
0005 <meta name="generator" content="KF5::SyntaxHighlighting - Definition (Scheme) - Theme (Breeze Light)"/>
0006 </head><body style="background-color:#ffffff;color:#1f1c1b"><pre>
0007 <span style="color:#898887;">; This is a test file to test kates scheme highlighting</span>
0008 <span style="color:#898887;">; This is a comment</span>
0009
0010 <span style="color:#898887;">; Brackets colors</span>
0011 <span style="color:#ff0000;font-weight:bold;">(</span><span style="color:#ff8800;font-weight:bold;">(</span><span style="color:#888800;font-weight:bold;">(</span><span style="color:#008800;font-weight:bold;">(</span><span style="color:#3689e6;font-weight:bold;">(</span><span style="color:#a100a1;font-weight:bold;">(</span><span style="color:#ff0000;font-weight:bold;">(</span><span style="color:#ff8800;font-weight:bold;">(</span><span style="color:#888800;font-weight:bold;">(</span><span style="color:#008800;font-weight:bold;">(</span><span style="color:#3689e6;font-weight:bold;">(</span><span style="color:#a100a1;font-weight:bold;">(</span><span style="color:#ff0000;font-weight:bold;">(</span> <span style="color:#ff0000;font-weight:bold;">)</span><span style="color:#a100a1;font-weight:bold;">)</span><span style="color:#3689e6;font-weight:bold;">)</span><span style="color:#008800;font-weight:bold;">)</span><span style="color:#888800;font-weight:bold;">)</span><span style="color:#ff8800;font-weight:bold;">)</span><span style="color:#ff0000;font-weight:bold;">)</span><span style="color:#a100a1;font-weight:bold;">)</span><span style="color:#3689e6;font-weight:bold;">)</span><span style="color:#008800;font-weight:bold;">)</span><span style="color:#888800;font-weight:bold;">)</span><span style="color:#ff8800;font-weight:bold;">)</span><span style="color:#ff0000;font-weight:bold;">)</span>
0012
0013 <span style="color:#898887;">;; Another comment, usually used.</span>
0014 <span style="color:#0057ae;background-color:#e0e9f8;">;BEGIN region marker</span>
0015 <span style="color:#898887;">;; a vektor</span>
0016 <span style="color:#ff0000;font-weight:bold;">#(</span><span style="color:#b08000;">1</span> <span style="color:#b08000;">2</span> <span style="color:#b08000;">3</span> <span style="color:#b08000;">4</span> <span style="color:#b08000;">5</span><span style="color:#ff0000;font-weight:bold;">)</span>
0017 <span style="color:#ca60ca;">[</span>'a 'b 'c<span style="color:#ca60ca;">]</span>
0018 <span style="color:#0057ae;background-color:#e0e9f8;">;END region marker</span>
0019 <span style="color:#898887;">;; this represents integer 28 (</span><span style="color:#ca9219;background-color:#451e1a;font-weight:bold;">FIXME</span><span style="color:#898887;">: does not work perfectly atm!)</span>
0020 <span style="color:#b08000;">28</span> <span style="color:#b08000;">028</span> <span style="color:#3daee9;">#e</span><span style="color:#b08000;">28</span> <span style="color:#3daee9;">#i</span><span style="color:#b08000;">28</span>       <span style="color:#898887;">;; Normal, normal, exact, inexact</span>
0021 <span style="color:#3daee9;">#b</span><span style="color:#b08000;">11100</span> <span style="color:#3daee9;">#o</span><span style="color:#b08000;">34</span> <span style="color:#3daee9;">#d</span><span style="color:#b08000;">28</span> <span style="color:#3daee9;">#x</span><span style="color:#b08000;">1c</span> <span style="color:#898887;">;; Bin, oct, dec, hex</span>
0022 <span style="color:#3daee9;">#oe</span><span style="color:#b08000;">34</span> <span style="color:#3daee9;">#eo</span><span style="color:#b08000;">34</span>            <span style="color:#898887;">;; combined.</span>
0023 <span style="color:#3daee9;">#o#e</span><span style="color:#b08000;">34</span> <span style="color:#3daee9;">#e#o</span><span style="color:#b08000;">34</span>          <span style="color:#898887;">;; combined.</span>
0024 <span style="color:#898887;">;; inf</span>
0025 <span style="color:#3daee9;">#i</span><span style="color:#644a9b;">+</span>inf.0 <span style="color:#b08000;">3</span>+inf.0
0026
0027 <span style="color:#898887;">;; symbols</span>
0028 &amp;symbol-42
0029 symbol-42<span style="color:#898887;">;comment</span>
0030
0031 <span style="color:#898887;">;; char.</span>
0032 <span style="color:#ff0000;font-weight:bold;">(</span><span style="color:#924c9d;">#\y</span> <span style="color:#924c9d;">#\space</span><span style="color:#ff0000;font-weight:bold;">)</span> <span style="color:#898887;">;; list: `y' space.</span>
0033 <span style="color:#ff0000;font-weight:bold;">(</span><span style="color:#924c9d;">#\ </span> <span style="color:#924c9d;">#\\</span> <span style="color:#924c9d;">#\)</span><span style="color:#ff0000;font-weight:bold;">)</span> <span style="color:#898887;">;; list of spaces, backslash and`)'.</span>
0034 <span style="color:#924c9d;">#\newline</span>     <span style="color:#898887;">;; a newline-char</span>
0035 <span style="color:#924c9d;">#\NewLine</span>     <span style="color:#898887;">;; another one :)</span>
0036 <span style="color:#924c9d;">#\</span><span style="color:#bf0303;text-decoration:underline;">pager</span>       <span style="color:#898887;">;; bad char</span>
0037
0038 <span style="color:#bf0303;">&quot;Hello, world&quot;</span> <span style="color:#898887;">;; a string</span>
0039
0040 <span style="color:#bf0303;">&quot;hoho, what do you</span>
0041 <span style="color:#bf0303;">want to do  ;; this is NO comment</span>
0042 <span style="color:#bf0303;">with that?&quot;</span>
0043
0044 <span style="color:#898887;">;; R5RS definiert diese beiden.</span>
0045 <span style="color:#bf0303;">&quot;Das ist </span><span style="color:#924c9d;">\&quot;</span><span style="color:#bf0303;">in Anführungszeichen</span><span style="color:#924c9d;">\&quot;</span><span style="color:#bf0303;"> und mit </span><span style="color:#924c9d;">\\</span><span style="color:#bf0303;"> Backslash.&quot;</span>
0046
0047 <span style="color:#bf0303;">&quot;hexadecimal char </span><span style="color:#924c9d;">\x1aF;</span><span style="color:#bf0303;">.&quot;</span>
0048
0049 <span style="color:#898887;">;; Kawa string templates</span>
0050 <span style="color:#bf0303;">&amp;{Hello </span><span style="color:#ff0000;font-weight:bold;">&amp;[</span>name<span style="color:#ff0000;font-weight:bold;">]</span><span style="color:#bf0303;">!}</span> 'no-string
0051 <span style="color:#bf0303;">&amp;{This has a {braced} section.}</span> 'no-string
0052 <span style="color:#bf0303;">&amp;{</span><span style="color:#924c9d;">&amp;#27;</span><span style="color:#bf0303;"> </span><span style="color:#924c9d;">&amp;#x1B;</span><span style="color:#bf0303;"> </span><span style="color:#924c9d;">&amp;amp;</span><span style="color:#bf0303;"> </span><span style="color:#924c9d;">&amp;lt;</span><span style="color:#bf0303;"> </span><span style="color:#924c9d;">&amp;gt;</span><span style="color:#bf0303;"> </span><span style="color:#924c9d;">&amp;quot;</span><span style="color:#bf0303;"> </span><span style="color:#924c9d;">&amp;apos;</span><span style="color:#bf0303;">}</span> 'no-string
0053 <span style="color:#898887;">; Multiline string literals</span>
0054 <span style="color:#ff0000;font-weight:bold;">(</span>string-capitalize <span style="color:#bf0303;">&amp;{one two three</span>
0055 <span style="color:#bf0303;">uno dos tres</span>
0056 <span style="color:#bf0303;">}</span><span style="color:#ff0000;font-weight:bold;">)</span>
0057 <span style="color:#ff0000;font-weight:bold;">(</span><span style="font-weight:bold;">write</span> <span style="color:#ff8800;font-weight:bold;">(</span>string-capitalize <span style="color:#bf0303;">&amp;{</span>
0058 <span style="color:#bf0303;">     </span><span style="color:#ca60ca;">&amp;|</span><span style="color:#bf0303;">one two three</span>
0059 <span style="color:#bf0303;">     </span><span style="color:#ca60ca;">&amp;|</span><span style="color:#bf0303;">uno dos tres</span>
0060 <span style="color:#bf0303;">}</span><span style="color:#ff8800;font-weight:bold;">)</span> out<span style="color:#ff0000;font-weight:bold;">)</span>
0061 <span style="color:#bf0303;">&amp;{abc</span><span style="color:#ca60ca;">&amp;-</span><span style="color:#bf0303;"> </span><span style="color:#898887;">#|comment|#</span>
0062 <span style="color:#bf0303;">  def}</span> 'no-string
0063 <span style="color:#bf0303;">&amp;{</span><span style="color:#898887;">&amp;#|line 1|#</span><span style="color:#bf0303;">one two</span>
0064 <span style="color:#bf0303;">  </span><span style="color:#898887;">&amp;#|line 2|#</span><span style="color:#bf0303;"> three</span>
0065 <span style="color:#bf0303;">  </span><span style="color:#898887;">&amp;#|line 3|#</span><span style="color:#bf0303;">uno dos tres</span>
0066 <span style="color:#bf0303;">}</span> 'no-string
0067 <span style="color:#898887;">; Embedded expressions</span>
0068 <span style="color:#bf0303;">&amp;{Hello </span><span style="color:#ff0000;font-weight:bold;">&amp;[</span><span style="color:#ff8800;font-weight:bold;">(</span>string-capitalize name<span style="color:#ff8800;font-weight:bold;">)</span><span style="color:#ff0000;font-weight:bold;">]</span><span style="color:#bf0303;">!}</span> 'no-string
0069 <span style="color:#bf0303;">&amp;{Hello </span><span style="color:#ff0000;font-weight:bold;">&amp;(</span>string-capitalize name<span style="color:#ff0000;font-weight:bold;">)</span><span style="color:#bf0303;">!}</span> 'no-string
0070 <span style="color:#898887;">; formatting</span>
0071 <span style="color:#bf0303;">&amp;{</span><span style="color:#0095ff;font-weight:bold;">&amp;~{</span><span style="color:#ff0000;font-weight:bold;">&amp;[</span>arr<span style="color:#ff0000;font-weight:bold;">]</span><span style="color:#0095ff;font-weight:bold;">&amp;~^_&amp;~</span><span style="color:#bf0303;">}</span><span style="color:#ca60ca;">}</span> 'no-string
0072 <span style="color:#bf0303;">&amp;{</span><span style="color:#0095ff;font-weight:bold;">&amp;~{&amp;~a</span><span style="color:#bf0303;">[arr]</span><span style="color:#0095ff;font-weight:bold;">&amp;~^_&amp;~</span><span style="color:#bf0303;">}</span><span style="color:#ca60ca;">}</span> 'no-string
0073
0074 <span style="color:#898887;">;; Kawa XML literals</span>
0075 <span style="color:#bf0303;">#&lt;p&gt;The result is &lt;b&gt;final&lt;/b&gt;!&lt;/p&gt;</span> 'no-xml
0076 <span style="color:#bf0303;">#&lt;em&gt;The result is </span><span style="color:#ff0000;font-weight:bold;">&amp;{</span>result<span style="color:#ff0000;font-weight:bold;">}</span><span style="color:#bf0303;">.&lt;/em&gt;</span> 'no-xml
0077 <span style="color:#bf0303;">#&lt;p&gt;This is &lt;(</span><span style="font-weight:bold;">if</span> be-bold 'strong 'em<span style="color:#bf0303;">)&gt;important&lt;/&gt;!&lt;/p&gt;</span> 'no-xml
0078 <span style="color:#bf0303;">#&lt;p&gt;This is &lt;{</span><span style="color:#ff0000;font-weight:bold;">(</span><span style="font-weight:bold;">if</span> be-bold 'strong 'em<span style="color:#ff0000;font-weight:bold;">)</span><span style="color:#bf0303;">}&gt;important&lt;/&gt;!&lt;/p&gt;</span> 'no-xml
0079 <span style="color:#bf0303;">#&lt;p&gt;Special characters &lt;![CDATA[</span><span style="color:#bf0303;">&lt; &gt; &amp; ' &quot;</span><span style="color:#bf0303;">]]&gt; here.&lt;/p&gt;</span> 'no-xml
0080 <span style="color:#bf0303;">#&lt;p&gt;Special characters </span><span style="color:#b08000;">&amp;lt;</span><span style="color:#bf0303;"> </span><span style="color:#b08000;">&amp;gt;</span><span style="color:#bf0303;"> </span><span style="color:#b08000;">&amp;amp;</span><span style="color:#bf0303;"> </span><span style="color:#b08000;">&amp;quot;</span><span style="color:#bf0303;"> </span><span style="color:#b08000;">&amp;apos;</span><span style="color:#bf0303;"> here.&lt;/p&gt;</span> 'no-xml
0081 <span style="color:#bf0303;">#&lt;gnu:b</span><span style="color:#006e28;"> xmlns:gnu=</span><span style="color:#bf0303;">&quot;http://gnu.org/&quot;</span><span style="color:#bf0303;">/&gt;</span> 'no-xml
0082 <span style="color:#bf0303;">#&lt;chapter&gt;&lt;?dbhtml</span><span style="color:#006e28;"> filename=&quot;intro.html&quot; </span><span style="color:#bf0303;">?&gt;</span>
0083 <span style="color:#bf0303;">&lt;title&gt;Introduction&lt;/title&gt;</span>
0084 <span style="color:#bf0303;">...</span>
0085 <span style="color:#bf0303;">&lt;/chapter&gt;</span> 'no-xml
0086
0087
0088 <span style="color:#898887;">;; Kawa Regular expression</span>
0089 <span style="color:#ca60ca;">#/</span><span style="color:#0095ff;font-weight:bold;">a\.c</span><span style="color:#ca60ca;">/</span>
0090 <span style="color:#ca60ca;">#/</span><span style="color:#0095ff;font-weight:bold;">a</span><span style="color:#ca60ca;">/</span><span style="color:#0095ff;font-weight:bold;">i</span>
0091 <span style="color:#ca60ca;">#/</span><span style="color:#0095ff;font-weight:bold;">a</span><span style="color:#ca60ca;">/</span><span style="color:#0095ff;font-weight:bold;">im</span>
0092
0093
0094 <span style="color:#ff0000;font-weight:bold;">(</span><span style="font-weight:bold;">let</span> <span style="color:#ff8800;font-weight:bold;">(</span><span style="color:#888800;font-weight:bold;">(</span>x <span style="color:#008800;font-weight:bold;">(</span><span style="color:#ca60ca;">+</span> <span style="color:#b08000;">1</span> <span style="color:#b08000;">2</span><span style="color:#008800;font-weight:bold;">)</span><span style="color:#888800;font-weight:bold;">)</span> <span style="color:#888800;font-weight:bold;">(</span>y <span style="color:#bf0303;">&quot;blah&quot;</span><span style="color:#888800;font-weight:bold;">)</span><span style="color:#ff8800;font-weight:bold;">)</span> <span style="color:#898887;">;; `let' highlighting.</span>
0095   <span style="color:#ff8800;font-weight:bold;">(</span><span style="font-weight:bold;">and</span> <span style="color:#888800;font-weight:bold;">(</span><span style="font-weight:bold;">number?</span> x<span style="color:#888800;font-weight:bold;">)</span>            <span style="color:#898887;">;; `and' highlighting.</span>
0096        <span style="color:#888800;font-weight:bold;">(</span><span style="font-weight:bold;">string?</span> y<span style="color:#888800;font-weight:bold;">)</span><span style="color:#ff8800;font-weight:bold;">)</span><span style="color:#ff0000;font-weight:bold;">)</span>
0097
0098 <span style="color:#ff0000;font-weight:bold;">(</span><span style="font-weight:bold;">let*</span> <span style="color:#ff8800;font-weight:bold;">(</span><span style="color:#888800;font-weight:bold;">(</span>x <span style="color:#b08000;">2</span><span style="color:#888800;font-weight:bold;">)</span> <span style="color:#888800;font-weight:bold;">(</span>y <span style="color:#008800;font-weight:bold;">(</span><span style="color:#ca60ca;">+</span> x <span style="color:#b08000;">1</span><span style="color:#008800;font-weight:bold;">)</span><span style="color:#888800;font-weight:bold;">)</span><span style="color:#ff8800;font-weight:bold;">)</span> <span style="color:#898887;">;; `let*' too.</span>
0099   <span style="color:#ff8800;font-weight:bold;">(</span><span style="font-weight:bold;">or</span> <span style="color:#888800;font-weight:bold;">(</span><span style="font-weight:bold;">negative?</span> x<span style="color:#888800;font-weight:bold;">)</span>       <span style="color:#898887;">;; `or' anyways.</span>
0100       <span style="color:#888800;font-weight:bold;">(</span><span style="font-weight:bold;">negative?</span> y<span style="color:#888800;font-weight:bold;">)</span><span style="color:#ff8800;font-weight:bold;">)</span><span style="color:#ff0000;font-weight:bold;">)</span>
0101
0102 <span style="color:#ff0000;font-weight:bold;">(</span><span style="font-weight:bold;">do</span> <span style="color:#ff8800;font-weight:bold;">(</span><span style="color:#888800;font-weight:bold;">(</span>vec <span style="color:#008800;font-weight:bold;">(</span><span style="font-weight:bold;">make-vector</span> <span style="color:#b08000;">5</span><span style="color:#008800;font-weight:bold;">)</span><span style="color:#888800;font-weight:bold;">)</span> <span style="color:#898887;">;; `do' you may guess!</span>
0103      <span style="color:#888800;font-weight:bold;">(</span>i <span style="color:#b08000;">0</span> <span style="color:#008800;font-weight:bold;">(</span><span style="color:#ca60ca;">+</span> i <span style="color:#b08000;">1</span><span style="color:#008800;font-weight:bold;">)</span><span style="color:#888800;font-weight:bold;">)</span><span style="color:#ff8800;font-weight:bold;">)</span>
0104     <span style="color:#ff8800;font-weight:bold;">(</span><span style="color:#888800;font-weight:bold;">(</span><span style="color:#ca60ca;">=</span> i <span style="color:#b08000;">5</span><span style="color:#888800;font-weight:bold;">)</span> vec<span style="color:#ff8800;font-weight:bold;">)</span>
0105   <span style="color:#ff8800;font-weight:bold;">(</span><span style="font-weight:bold;">vector-set!</span> vec i i<span style="color:#ff8800;font-weight:bold;">)</span><span style="color:#ff0000;font-weight:bold;">)</span>
0106
0107 <span style="color:#ff0000;font-weight:bold;">(</span><span style="font-weight:bold;">quasiquote</span> <span style="color:#ff8800;font-weight:bold;">(</span><span style="color:#888800;font-weight:bold;">(</span><span style="color:#ca60ca;">+</span> <span style="color:#b08000;">1</span> <span style="color:#b08000;">2</span><span style="color:#888800;font-weight:bold;">)</span> <span style="color:#888800;font-weight:bold;">(</span><span style="font-weight:bold;">unquote</span> <span style="color:#008800;font-weight:bold;">(</span><span style="color:#ca60ca;">+</span> <span style="color:#b08000;">1</span> <span style="color:#b08000;">2</span><span style="color:#008800;font-weight:bold;">)</span><span style="color:#888800;font-weight:bold;">)</span><span style="color:#ff8800;font-weight:bold;">)</span><span style="color:#ff0000;font-weight:bold;">)</span>
0108 <span style="color:#898887;">;; same as: `((+ 1 2) ,(+ 1 2))</span>
0109
0110 <span style="color:#898887;">;; see above.</span>
0111 <span style="color:#ff0000;font-weight:bold;">(</span><span style="font-weight:bold;">quasiquote</span> <span style="color:#ff8800;font-weight:bold;">(</span><span style="color:#888800;font-weight:bold;">(</span><span style="color:#ca60ca;">+</span> <span style="color:#b08000;">1</span> <span style="color:#b08000;">2</span><span style="color:#888800;font-weight:bold;">)</span> <span style="color:#888800;font-weight:bold;">(</span><span style="font-weight:bold;">unquote-splicing</span> <span style="color:#008800;font-weight:bold;">(</span><span style="font-weight:bold;">list</span> <span style="color:#b08000;">1</span> <span style="color:#b08000;">2</span> <span style="color:#b08000;">3</span><span style="color:#008800;font-weight:bold;">)</span><span style="color:#888800;font-weight:bold;">)</span><span style="color:#ff8800;font-weight:bold;">)</span><span style="color:#ff0000;font-weight:bold;">)</span>
0112 <span style="color:#898887;">;; same as: `((+ 1 2) ,@(+ 1 2))</span>
0113
0114 <span style="color:#898887;">;; not necessary.</span>
0115 <span style="color:#ff0000;font-weight:bold;">(</span><span style="font-weight:bold;">quote</span> <span style="color:#ff8800;font-weight:bold;">()</span><span style="color:#ff0000;font-weight:bold;">)</span>
0116
0117 <span style="color:#ff0000;font-weight:bold;">(</span><span style="font-weight:bold;">cond</span> <span style="color:#ff8800;font-weight:bold;">(</span><span style="color:#888800;font-weight:bold;">(</span><span style="font-weight:bold;">string?</span> x<span style="color:#888800;font-weight:bold;">)</span> <span style="color:#888800;font-weight:bold;">(</span><span style="font-weight:bold;">string-&gt;symbol</span> x<span style="color:#888800;font-weight:bold;">)</span><span style="color:#ff8800;font-weight:bold;">)</span> <span style="color:#898887;">;; `cond' highlighting.</span>
0118       <span style="color:#ff8800;font-weight:bold;">(</span><span style="color:#888800;font-weight:bold;">(</span><span style="font-weight:bold;">symbol?</span> x<span style="color:#888800;font-weight:bold;">)</span> <span style="color:#ca60ca;">=&gt;</span> <span style="color:#888800;font-weight:bold;">(</span><span style="font-weight:bold;">lambda</span> <span style="color:#008800;font-weight:bold;">(</span>x<span style="color:#008800;font-weight:bold;">)</span> x<span style="color:#888800;font-weight:bold;">)</span><span style="color:#ff8800;font-weight:bold;">)</span>  <span style="color:#898887;">;; `=&gt;' highlighting.</span>
0119       <span style="color:#ff8800;font-weight:bold;">(</span><span style="font-weight:bold;">else</span> <span style="color:#898887;">;; `else' highlighting.</span>
0120        <span style="color:#888800;font-weight:bold;">(</span><span style="font-weight:bold;">error</span> <span style="color:#bf0303;">&quot;Blah&quot;</span><span style="color:#888800;font-weight:bold;">)</span><span style="color:#ff8800;font-weight:bold;">)</span><span style="color:#ff0000;font-weight:bold;">)</span>
0121
0122 <span style="color:#ff0000;font-weight:bold;">(</span><span style="font-weight:bold;">case</span> x <span style="color:#898887;">;; `case' highlighting.</span>
0123   <span style="color:#ff8800;font-weight:bold;">(</span><span style="color:#888800;font-weight:bold;">(</span><span style="color:#b08000;">#t</span><span style="color:#888800;font-weight:bold;">)</span> 'true<span style="color:#ff8800;font-weight:bold;">)</span> <span style="color:#ff8800;font-weight:bold;">(</span><span style="color:#888800;font-weight:bold;">(</span><span style="color:#b08000;">#f</span><span style="color:#888800;font-weight:bold;">)</span> 'false<span style="color:#ff8800;font-weight:bold;">)</span>
0124   <span style="color:#ff8800;font-weight:bold;">(</span><span style="color:#888800;font-weight:bold;">(</span><span style="color:#008800;font-weight:bold;">()</span><span style="color:#888800;font-weight:bold;">)</span> 'null<span style="color:#ff8800;font-weight:bold;">)</span>
0125   <span style="color:#ff8800;font-weight:bold;">(</span><span style="color:#888800;font-weight:bold;">(</span><span style="color:#b08000;">0</span><span style="color:#888800;font-weight:bold;">)</span> 'zero<span style="color:#ff8800;font-weight:bold;">)</span><span style="color:#ff0000;font-weight:bold;">)</span>
0126
0127 <span style="color:#898887;">;; highlight `let-syntax' and `syntax-rules' .</span>
0128 <span style="color:#ff0000;font-weight:bold;">(</span><span style="font-weight:bold;">let-syntax</span> <span style="color:#ff8800;font-weight:bold;">(</span><span style="color:#888800;font-weight:bold;">(</span>when <span style="color:#008800;font-weight:bold;">(</span><span style="font-weight:bold;">syntax-rules</span> <span style="color:#3689e6;font-weight:bold;">()</span>
0129                      <span style="color:#3689e6;font-weight:bold;">(</span><span style="color:#a100a1;font-weight:bold;">(</span>when test stmt1 stmt2 <span style="color:#ca60ca;">...</span><span style="color:#a100a1;font-weight:bold;">)</span>
0130                       <span style="color:#898887;">;; hl `begin' .</span>
0131                       <span style="color:#a100a1;font-weight:bold;">(</span><span style="font-weight:bold;">if</span> test <span style="color:#ff0000;font-weight:bold;">(</span><span style="font-weight:bold;">begin</span> stmt1 stmt2 <span style="color:#ca60ca;">...</span><span style="color:#ff0000;font-weight:bold;">)</span><span style="color:#a100a1;font-weight:bold;">)</span><span style="color:#3689e6;font-weight:bold;">)</span><span style="color:#008800;font-weight:bold;">)</span><span style="color:#888800;font-weight:bold;">)</span><span style="color:#ff8800;font-weight:bold;">)</span>
0132   <span style="color:#ff8800;font-weight:bold;">(</span><span style="font-weight:bold;">let</span> <span style="color:#888800;font-weight:bold;">(</span><span style="color:#008800;font-weight:bold;">(</span><span style="font-weight:bold;">if</span> <span style="color:#b08000;">#t</span><span style="color:#008800;font-weight:bold;">)</span><span style="color:#888800;font-weight:bold;">)</span> <span style="color:#898887;">;; here`if' is actually no keyword.</span>
0133     <span style="color:#888800;font-weight:bold;">(</span>when <span style="font-weight:bold;">if</span> <span style="color:#008800;font-weight:bold;">(</span><span style="font-weight:bold;">set!</span> <span style="font-weight:bold;">if</span> 'now<span style="color:#008800;font-weight:bold;">)</span><span style="color:#888800;font-weight:bold;">)</span> <span style="color:#898887;">;; nor here.</span>
0134     <span style="font-weight:bold;">if</span><span style="color:#ff8800;font-weight:bold;">)</span><span style="color:#ff0000;font-weight:bold;">)</span>
0135
0136 <span style="color:#ff0000;font-weight:bold;">(</span><span style="font-weight:bold;">letrec-syntax</span> <span style="color:#ca60ca;">...</span><span style="color:#ff0000;font-weight:bold;">)</span> <span style="color:#898887;">;; hl `letrec-syntax'.</span>
0137
0138 <span style="color:#ff0000;font-weight:bold;">(</span><span style="color:#0095ff;font-weight:bold;">define-syntax</span><span style="color:#644a9b;"> when</span>
0139   <span style="color:#ff8800;font-weight:bold;">(</span><span style="font-weight:bold;">syntax-rules</span> <span style="color:#888800;font-weight:bold;">()</span>
0140     <span style="color:#888800;font-weight:bold;">(</span><span style="color:#008800;font-weight:bold;">(</span>when test stmt1 stmt2 <span style="color:#ca60ca;">...</span><span style="color:#008800;font-weight:bold;">)</span>
0141      <span style="color:#008800;font-weight:bold;">(</span><span style="font-weight:bold;">if</span> test <span style="color:#3689e6;font-weight:bold;">(</span><span style="font-weight:bold;">begin</span> stmt1 stmt2 <span style="color:#ca60ca;">...</span><span style="color:#3689e6;font-weight:bold;">)</span><span style="color:#008800;font-weight:bold;">)</span><span style="color:#888800;font-weight:bold;">)</span><span style="color:#ff8800;font-weight:bold;">)</span><span style="color:#ff0000;font-weight:bold;">)</span>)
0142
0143 <span style="color:#898887;">;; variable definitions.</span>
0144 <span style="color:#ff0000;font-weight:bold;">(</span><span style="color:#0095ff;font-weight:bold;">define</span><span style="color:#644a9b;"> natural-numbers </span><span style="color:#898887;">;; hl `define' and the var name</span>
0145   <span style="color:#898887;">;; endless stream of all natual numbers.</span>
0146   <span style="color:#ff8800;font-weight:bold;">(</span><span style="font-weight:bold;">letrec</span> <span style="color:#888800;font-weight:bold;">(</span><span style="color:#008800;font-weight:bold;">(</span>next-cell    <span style="color:#898887;">;; hl `letrec'.</span>
0147             <span style="color:#3689e6;font-weight:bold;">(</span><span style="font-weight:bold;">lambda</span> <span style="color:#a100a1;font-weight:bold;">(</span>x<span style="color:#a100a1;font-weight:bold;">)</span>  <span style="color:#898887;">;; hl `lambda'.</span>
0148               <span style="color:#898887;">;; hl `delay' .</span>
0149               <span style="color:#a100a1;font-weight:bold;">(</span><span style="font-weight:bold;">cons</span> x <span style="color:#ff0000;font-weight:bold;">(</span>delay <span style="color:#ff8800;font-weight:bold;">(</span>next-cell <span style="color:#888800;font-weight:bold;">(</span><span style="color:#ca60ca;">+</span> x <span style="color:#b08000;">1</span><span style="color:#888800;font-weight:bold;">)</span><span style="color:#ff8800;font-weight:bold;">)</span><span style="color:#ff0000;font-weight:bold;">)</span><span style="color:#a100a1;font-weight:bold;">)</span><span style="color:#3689e6;font-weight:bold;">)</span><span style="color:#008800;font-weight:bold;">)</span><span style="color:#888800;font-weight:bold;">)</span>
0150     <span style="color:#888800;font-weight:bold;">(</span>next-cell <span style="color:#b08000;">0</span><span style="color:#888800;font-weight:bold;">)</span><span style="color:#ff8800;font-weight:bold;">)</span><span style="color:#ff0000;font-weight:bold;">)</span>
0151
0152 <span style="color:#898887;">;; a procedure with unusual but allowed name.</span>
0153 <span style="color:#ff0000;font-weight:bold;">(</span><span style="color:#0095ff;font-weight:bold;">define</span><span style="color:#644a9b;"> 1+</span>
0154   <span style="color:#ff8800;font-weight:bold;">(</span><span style="font-weight:bold;">lambda</span> <span style="color:#888800;font-weight:bold;">(</span>x<span style="color:#888800;font-weight:bold;">)</span>
0155     <span style="color:#888800;font-weight:bold;">(</span><span style="color:#ca60ca;">+</span> x <span style="color:#b08000;">1</span><span style="color:#888800;font-weight:bold;">)</span><span style="color:#ff8800;font-weight:bold;">)</span><span style="color:#ff0000;font-weight:bold;">)</span>
0156
0157 <span style="color:#898887;">;; a predicate</span>
0158 <span style="color:#ff0000;font-weight:bold;">(</span><span style="color:#0095ff;font-weight:bold;">define</span><span style="color:#644a9b;"> between?</span>
0159   <span style="color:#ff8800;font-weight:bold;">(</span><span style="font-weight:bold;">lambda</span> <span style="color:#888800;font-weight:bold;">(</span>x y z<span style="color:#888800;font-weight:bold;">)</span>
0160     <span style="color:#888800;font-weight:bold;">(</span><span style="font-weight:bold;">if</span> <span style="color:#008800;font-weight:bold;">(</span><span style="font-weight:bold;">and</span> <span style="color:#3689e6;font-weight:bold;">(</span><span style="color:#ca60ca;">&gt;=</span> x y<span style="color:#3689e6;font-weight:bold;">)</span> <span style="color:#3689e6;font-weight:bold;">(</span><span style="color:#ca60ca;">&lt;=</span> x z<span style="color:#3689e6;font-weight:bold;">)</span><span style="color:#008800;font-weight:bold;">)</span>
0161         <span style="color:#b08000;">#t</span> <span style="color:#898887;">;; True</span>
0162       <span style="color:#b08000;">#f</span><span style="color:#888800;font-weight:bold;">)</span><span style="color:#ff8800;font-weight:bold;">)</span><span style="color:#ff0000;font-weight:bold;">)</span> <span style="color:#898887;">;; False.</span>
0163
0164 <span style="color:#898887;">;; imperative procedure</span>
0165 <span style="color:#ff0000;font-weight:bold;">(</span><span style="color:#0095ff;font-weight:bold;">define</span><span style="color:#644a9b;"> set-something!</span>
0166   <span style="color:#ff8800;font-weight:bold;">(</span><span style="font-weight:bold;">lambda</span> <span style="color:#888800;font-weight:bold;">(</span>required-argument another-one <span style="color:#ca60ca;">.</span> all-remaining-args<span style="color:#888800;font-weight:bold;">)</span>
0167     <span style="color:#888800;font-weight:bold;">(</span><span style="font-weight:bold;">set-car!</span> another-one <span style="color:#008800;font-weight:bold;">(</span><span style="font-weight:bold;">lambda</span> all-args
0168                             <span style="color:#3689e6;font-weight:bold;">(</span><span style="font-weight:bold;">set-cdr!</span> required-argument
0169                                       <span style="color:#a100a1;font-weight:bold;">(</span><span style="font-weight:bold;">append</span> all-remaining-args
0170                                               all-args<span style="color:#a100a1;font-weight:bold;">)</span><span style="color:#3689e6;font-weight:bold;">)</span><span style="color:#008800;font-weight:bold;">)</span><span style="color:#888800;font-weight:bold;">)</span><span style="color:#ff8800;font-weight:bold;">)</span><span style="color:#ff0000;font-weight:bold;">)</span>
0171
0172 <span style="color:#ff0000;font-weight:bold;">(</span><span style="color:#0095ff;font-weight:bold;">define</span><span style="color:#644a9b;"> compose</span>
0173   <span style="color:#ff8800;font-weight:bold;">(</span><span style="font-weight:bold;">lambda</span> <span style="color:#888800;font-weight:bold;">(</span>f g<span style="color:#888800;font-weight:bold;">)</span>
0174     <span style="color:#888800;font-weight:bold;">(</span><span style="font-weight:bold;">lambda</span> <span style="color:#008800;font-weight:bold;">(</span>x<span style="color:#008800;font-weight:bold;">)</span>
0175       <span style="color:#008800;font-weight:bold;">(</span>f <span style="color:#3689e6;font-weight:bold;">(</span>g x<span style="color:#3689e6;font-weight:bold;">)</span><span style="color:#008800;font-weight:bold;">)</span><span style="color:#888800;font-weight:bold;">)</span><span style="color:#ff8800;font-weight:bold;">)</span><span style="color:#ff0000;font-weight:bold;">)</span>
0176
0177 <span style="color:#898887;">;; syntactical sugar for procedure-definitions.</span>
0178 <span style="color:#ff0000;font-weight:bold;">(</span><span style="color:#0095ff;font-weight:bold;">define</span><span style="color:#644a9b;"> </span><span style="color:#ff8800;font-weight:bold;">(</span>compose f g<span style="color:#ff8800;font-weight:bold;">)</span>
0179   <span style="color:#ff8800;font-weight:bold;">(</span><span style="font-weight:bold;">lambda</span> <span style="color:#888800;font-weight:bold;">(</span>x<span style="color:#888800;font-weight:bold;">)</span>
0180     <span style="color:#888800;font-weight:bold;">(</span>f <span style="color:#008800;font-weight:bold;">(</span>g x<span style="color:#008800;font-weight:bold;">)</span><span style="color:#888800;font-weight:bold;">)</span><span style="color:#ff8800;font-weight:bold;">)</span><span style="color:#ff0000;font-weight:bold;">)</span>
0181
0182 <span style="color:#898887;">;;;;;;;;;;;;;;;;;;;;;;;;;;;</span>
0183 <span style="color:#898887;">;; NOW: Guile extensions ;;</span>
0184 <span style="color:#898887;">;;;;;;;;;;;;;;;;;;;;;;;;;;;</span>
0185
0186 <span style="color:#898887;">;; procedure-generator.</span>
0187 <span style="color:#ff0000;font-weight:bold;">(</span><span style="color:#0095ff;font-weight:bold;">define</span><span style="color:#644a9b;"> </span><span style="color:#ff8800;font-weight:bold;">(</span><span style="color:#888800;font-weight:bold;">(</span>compose f g<span style="color:#888800;font-weight:bold;">)</span> x<span style="color:#ff8800;font-weight:bold;">)</span>
0188   <span style="color:#ff8800;font-weight:bold;">(</span>f <span style="color:#888800;font-weight:bold;">(</span>g x<span style="color:#888800;font-weight:bold;">)</span><span style="color:#ff8800;font-weight:bold;">)</span><span style="color:#ff0000;font-weight:bold;">)</span>
0189
0190 <span style="color:#898887;">;; scheme doesn't say, which chars may be in variables...</span>
0191 <span style="color:#898887;">;; At least: Guile accepts umlauts</span>
0192 <span style="color:#ff0000;font-weight:bold;">(</span><span style="color:#0095ff;font-weight:bold;">define-private</span><span style="color:#644a9b;"> </span><span style="color:#ff8800;font-weight:bold;">(</span>timetr??? sprache<span style="color:#ff8800;font-weight:bold;">)</span> <span style="color:#898887;">;; hl `define-private'.</span>
0193   <span style="color:#ff8800;font-weight:bold;">(</span>list-dialekt? sprache<span style="color:#ff8800;font-weight:bold;">)</span><span style="color:#ff0000;font-weight:bold;">)</span>
0194
0195 <span style="color:#ff0000;font-weight:bold;">(</span><span style="color:#0095ff;font-weight:bold;">define-public</span><span style="color:#644a9b;"> x </span><span style="color:#b08000;">#t</span><span style="color:#ff0000;font-weight:bold;">)</span>  <span style="color:#898887;">;; hl `define-public'.</span>
0196 <span style="color:#ff0000;font-weight:bold;">(</span><span style="color:#0095ff;font-weight:bold;">define-module</span><span style="color:#644a9b;"> </span><span style="color:#ff8800;font-weight:bold;">(</span>foo bar<span style="color:#ff8800;font-weight:bold;">)</span><span style="color:#ff0000;font-weight:bold;">)</span> <span style="color:#898887;">;; hl `define-module'.</span>
0197 <span style="color:#ff0000;font-weight:bold;">(</span><span style="color:#0095ff;font-weight:bold;">define-macro</span><span style="color:#644a9b;"> </span><span style="color:#ff8800;font-weight:bold;">(</span>neither <span style="color:#ca60ca;">.</span> exprs<span style="color:#ff8800;font-weight:bold;">)</span> <span style="color:#898887;">;; hl `define-macro'.</span>
0198   <span style="color:#ff8800;font-weight:bold;">`(</span><span style="font-weight:bold;">and</span> ,<span style="color:#888800;font-weight:bold;">@(</span>map <span style="color:#008800;font-weight:bold;">(</span><span style="font-weight:bold;">lambda</span> <span style="color:#3689e6;font-weight:bold;">(</span>x<span style="color:#3689e6;font-weight:bold;">)</span> <span style="color:#3689e6;font-weight:bold;">`(</span><span style="font-weight:bold;">not</span> ,x<span style="color:#3689e6;font-weight:bold;">)</span><span style="color:#008800;font-weight:bold;">)</span> exprs<span style="color:#888800;font-weight:bold;">)</span><span style="color:#ff8800;font-weight:bold;">)</span><span style="color:#ff0000;font-weight:bold;">)</span>
0199
0200 <span style="color:#ff0000;font-weight:bold;">(</span><span style="color:#0095ff;font-weight:bold;">defmacro</span><span style="color:#644a9b;"> neither </span>exprs <span style="color:#898887;">;; `defmacro' as well.</span>
0201   <span style="color:#ff8800;font-weight:bold;">`(</span><span style="font-weight:bold;">and</span> ,<span style="color:#888800;font-weight:bold;">@(</span>map <span style="color:#008800;font-weight:bold;">(</span><span style="font-weight:bold;">lambda</span> <span style="color:#3689e6;font-weight:bold;">(</span>x<span style="color:#3689e6;font-weight:bold;">)</span> <span style="color:#3689e6;font-weight:bold;">`(</span><span style="font-weight:bold;">not</span> ,x<span style="color:#3689e6;font-weight:bold;">)</span><span style="color:#008800;font-weight:bold;">)</span> exprs<span style="color:#888800;font-weight:bold;">)</span><span style="color:#ff8800;font-weight:bold;">)</span><span style="color:#ff0000;font-weight:bold;">)</span>
0202
0203 <span style="color:#898887;">;; hl, but I really don't know what this is supposed to do :-)</span>
0204 <span style="color:#ff0000;font-weight:bold;">(</span><span style="color:#0095ff;font-weight:bold;">define-syntax-macro</span><span style="color:#644a9b;"> ...</span><span style="color:#ff0000;font-weight:bold;">)</span>
0205
0206 <span style="color:#898887;">;; hl GOOPS-`defines'</span>
0207 <span style="color:#ff0000;font-weight:bold;">(</span><span style="color:#0095ff;font-weight:bold;">define-method</span><span style="color:#644a9b;"> </span><span style="color:#ff8800;font-weight:bold;">(</span>foo bar <span style="color:#888800;font-weight:bold;">(</span>baz &lt;vector&gt;<span style="color:#888800;font-weight:bold;">)</span> qux<span style="color:#ff8800;font-weight:bold;">)</span> <span style="color:#ca60ca;">...</span><span style="color:#ff0000;font-weight:bold;">)</span>
0208 <span style="color:#ff0000;font-weight:bold;">(</span><span style="color:#0095ff;font-weight:bold;">define-class</span><span style="color:#644a9b;"> &lt;foo&gt; </span><span style="color:#ca60ca;">...</span><span style="color:#ff0000;font-weight:bold;">)</span>
0209 <span style="color:#ff0000;font-weight:bold;">(</span><span style="color:#0095ff;font-weight:bold;">define-generic</span><span style="color:#644a9b;"> foo</span><span style="color:#ff0000;font-weight:bold;">)</span>
0210 <span style="color:#ff0000;font-weight:bold;">(</span><span style="color:#0095ff;font-weight:bold;">define-accessor</span><span style="color:#644a9b;"> bar</span><span style="color:#ff0000;font-weight:bold;">)</span>
0211
0212 <span style="color:#898887;">;; Keywords!</span>
0213 <span style="color:#ff0000;font-weight:bold;">(</span>blah #:foo <span style="color:#b08000;">33</span> #:bar <span style="color:#b08000;">44</span><span style="color:#ff0000;font-weight:bold;">)</span>
0214
0215 <span style="color:#898887;">;; another convention for symbols:</span>
0216 #<span style="color:#ca60ca;">{</span>foo<span style="color:#ca60ca;">}</span>#
0217
0218 #<span style="color:#ca60ca;">{</span>a
0219 few
0220 lines<span style="color:#ca60ca;">}</span>#
0221
0222 #<span style="color:#ca60ca;">{</span><span style="color:#b08000;">4711</span><span style="color:#ca60ca;">}</span>#
0223
0224 <span style="color:#898887;">;; more chars.</span>
0225 <span style="color:#924c9d;">#\nul</span> <span style="color:#924c9d;">#\nl</span> <span style="color:#924c9d;">#\esc</span> <span style="color:#924c9d;">#\bs</span> <span style="color:#924c9d;">#\bel</span> <span style="color:#924c9d;">#\syn</span> <span style="color:#924c9d;">#\ack</span> <span style="color:#924c9d;">#\sp</span> <span style="color:#898887;">;; etc, utc, itc, oops (this is boring)</span>
0226
0227 <span style="color:#898887;">#| R6RS / SRFI-30 block comment</span>
0228 <span style="color:#898887;">supports #| nested block |# comments |#</span>
0229 'now-no-comment-anymore
0230
0231 <span style="color:#898887;">#!</span>
0232 <span style="color:#898887;"> guile block-comment.</span>
0233 <span style="color:#898887;">!#</span>
0234
0235 <span style="color:#898887;">;; now, a bit hairy:</span>
0236 <span style="color:#898887;">#! comment !#</span>
0237 <span style="color:#898887;">still comment!!!</span>
0238 <span style="color:#898887;">!#</span>
0239 'now-no-comment-anymore
0240
0241 <span style="color:#898887;">;; more precise:</span>
0242 <span style="color:#898887;">#! comment !#</span>
0243 <span style="color:#898887;">still comment</span>
0244 <span style="color:#898887;">!# still comment!</span>
0245 <span style="color:#898887;">!#</span>
0246 'now-no-comment-anymore
0247
0248 <span style="color:#898887;">;; Datum comment</span>
0249 <span style="color:#898887;">#;(1 2 3)</span> 'now-no-comment-anymore
0250 <span style="color:#898887;">#;1</span> 'now-no-comment-anymore
0251 <span style="color:#898887;">#;#o12</span> 'now-no-comment-anymore
0252 <span style="color:#898887;">#;&quot;bla bla\&quot;&quot;</span> 'now-no-comment-anymore
0253 <span style="color:#898887;">#;[1 2 3]</span> 'now-no-comment-anymore
0254 <span style="color:#898887;">#;[1 [2 (3 (4))]]</span> 'now-no-comment-anymore
0255 <span style="color:#898887;">#;(1 (2 [3 [4]]))</span> 'now-no-comment-anymore
0256 <span style="color:#898887;">#;#/reg/im</span> 'now-no-comment-anymore
0257 <span style="color:#898887;">#;#&lt;p&gt;The result is &lt;b&gt;final&lt;/b&gt;!&lt;/p&gt;</span> 'now-no-comment-anymore
0258 <span style="color:#898887;">#;#&lt;em&gt;The result is &amp;{result}.&lt;/em&gt;</span> 'now-no-comment-anymore
0259 <span style="color:#898887;">#;#&lt;p&gt;This is &lt;(if be-bold 'strong 'em)&gt;important&lt;/&gt;!&lt;/p&gt;</span> 'now-no-comment-anymore
0260 <span style="color:#898887;">#;#&lt;p&gt;This is &lt;{(if be-bold 'strong 'em)}&gt;important&lt;/&gt;!&lt;/p&gt;</span> 'now-no-comment-anymore
0261 <span style="color:#898887;">#;#&lt;p&gt;Specal characters &lt;![CDATA[&lt; &gt; &amp; ' &quot;]]&gt; here.&lt;/p&gt;</span> 'now-no-comment-anymore
0262 <span style="color:#898887;">#;#&lt;p&gt;Specal characters &amp;lt; &amp;gt; &amp;amp; &amp;quot; &amp;apos; here.&lt;/p&gt;</span> 'now-no-comment-anymore
0263 <span style="color:#898887;">#;#&lt;gnu:b xmlns:gnu=&quot;http://gnu.org/&quot;/&gt;</span> 'now-no-comment-anymore
0264 <span style="color:#898887;">#;#&lt;chapter&gt;&lt;?dbhtml filename=&quot;intro.html&quot; ?&gt;</span>
0265 <span style="color:#898887;">&lt;title&gt;Introduction&lt;/title&gt;</span>
0266 <span style="color:#898887;">...</span>
0267 <span style="color:#898887;">&lt;/chapter&gt;</span> 'now-no-comment-anymore
0268 <span style="color:#898887;">#;#&amp;{Hello &amp;[name]!}</span> 'now-no-comment-anymore
0269 <span style="color:#898887;">#;&amp;{This has a {braced} section.}</span> 'now-no-comment-anymore
0270 <span style="color:#898887;">#;&amp;{&amp;#27;&amp;#x1B; &amp;amp; &amp;lt; &amp;gt; &amp;quot; &amp;apos;}</span> 'now-no-comment-anymore
0271 <span style="color:#898887;">#;(string-capitalize &amp;{one two three</span>
0272 <span style="color:#898887;">uno dos tres</span>
0273 <span style="color:#898887;">})</span> 'now-no-comment-anymore
0274 <span style="color:#898887;">#;(write (string-capitalize &amp;{</span>
0275 <span style="color:#898887;">     &amp;|one two three</span>
0276 <span style="color:#898887;">     &amp;|uno dos tres</span>
0277 <span style="color:#898887;">}) out)</span> 'now-no-comment-anymore
0278 <span style="color:#898887;">#;&amp;{abc&amp;-</span>
0279 <span style="color:#898887;">  def}</span> 'now-no-comment-anymore
0280 <span style="color:#898887;">#;&amp;{&amp;#|line 1|#one two</span>
0281 <span style="color:#898887;">  &amp;#|line 2|# three</span>
0282 <span style="color:#898887;">  &amp;#|line 3|#uno dos tres</span>
0283 <span style="color:#898887;">}</span> 'now-no-comment-anymore
0284 <span style="color:#898887;">#;&amp;{Hello &amp;[(string-capitalize name)]!}</span> 'now-no-comment-anymore
0285 <span style="color:#898887;">#;&amp;{Hello &amp;(string-capitalize name)!}</span> 'now-no-comment-anymore
0286 <span style="color:#898887;">#;&amp;{&amp;~{&amp;[arr]&amp;~^_&amp;~}}</span> 'now-no-comment-anymore
0287 <span style="color:#898887;">#;&amp;{&amp;~{&amp;~a[arr]&amp;~^_&amp;~}}</span> 'now-no-comment-anymore
0288 <span style="color:#898887;">#;(</span>
0289 <span style="color:#898887;">1</span>
0290 <span style="color:#898887;">2</span>
0291 <span style="color:#898887;">3)</span> 'now-no-comment-anymore
0292
0293 <span style="color:#898887;">; identifier with hex-escape</span>
0294 H\x65;llo<span style="color:#898887;">; commment</span>
0295 H\x65;\x6c;lo<span style="color:#898887;">; commment</span>
0296
0297 <span style="color:#ff0000;font-weight:bold;">(</span><span style="font-weight:bold;">while</span> <span style="color:#ff8800;font-weight:bold;">(</span><span style="color:#ca60ca;">&gt;</span> foo <span style="color:#b08000;">10</span><span style="color:#ff8800;font-weight:bold;">)</span> <span style="color:#898887;">;; Highlight `while'.</span>
0298   <span style="color:#ff8800;font-weight:bold;">(</span><span style="font-weight:bold;">set!</span> foo <span style="color:#888800;font-weight:bold;">(</span><span style="color:#ca60ca;">-</span> foo <span style="color:#b08000;">1</span><span style="color:#888800;font-weight:bold;">)</span><span style="color:#ff8800;font-weight:bold;">)</span>
0299   <span style="color:#ff8800;font-weight:bold;">(</span><span style="font-weight:bold;">catch</span> <span style="color:#b08000;">#t</span> <span style="color:#898887;">;; Highlight `catch'.</span>
0300     <span style="color:#888800;font-weight:bold;">(</span><span style="font-weight:bold;">lambda</span> <span style="color:#008800;font-weight:bold;">()</span> <span style="color:#008800;font-weight:bold;">(</span><span style="font-weight:bold;">display</span> foo<span style="color:#008800;font-weight:bold;">)</span><span style="color:#888800;font-weight:bold;">)</span>
0301     <span style="color:#888800;font-weight:bold;">(</span><span style="font-weight:bold;">lambda</span> <span style="color:#008800;font-weight:bold;">(</span>key <span style="color:#ca60ca;">.</span> args<span style="color:#008800;font-weight:bold;">)</span>
0302       <span style="color:#008800;font-weight:bold;">(</span><span style="font-weight:bold;">if</span> <span style="color:#3689e6;font-weight:bold;">(</span><span style="font-weight:bold;">eq?</span> key 'system-error<span style="color:#3689e6;font-weight:bold;">)</span>
0303           <span style="color:#3689e6;font-weight:bold;">(</span><span style="font-weight:bold;">break</span><span style="color:#3689e6;font-weight:bold;">)</span> <span style="color:#898887;">;; Highlight `break'.</span>
0304         <span style="color:#3689e6;font-weight:bold;">(</span><span style="font-weight:bold;">continue</span><span style="color:#3689e6;font-weight:bold;">)</span><span style="color:#008800;font-weight:bold;">)</span><span style="color:#888800;font-weight:bold;">)</span><span style="color:#ff8800;font-weight:bold;">)</span><span style="color:#ff0000;font-weight:bold;">)</span> <span style="color:#898887;">;; Highlight `continue'.</span>
0305 </pre></body></html>