File indexing completed on 2024-05-12 04:02:07

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 Dark)"/>
0006 </head><body style="background-color:#232629;color:#cfcfc2"><pre>
0007 <span style="color:#7a7c7d">; This is a test file to test kates scheme highlighting</span>
0008 <span style="color:#7a7c7d">; This is a comment</span>
0009 
0010 <span style="color:#7a7c7d">; 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:#7a7c7d">;; Another comment, usually used.</span>
0014 <span style="color:#2980b9;background-color:#153042">;BEGIN region marker</span>
0015 <span style="color:#7a7c7d">;; a vektor</span>
0016 <span style="color:#ff0000;font-weight:bold">#(</span><span style="color:#f67400">1</span> <span style="color:#f67400">2</span> <span style="color:#f67400">3</span> <span style="color:#f67400">4</span> <span style="color:#f67400">5</span><span style="color:#ff0000;font-weight:bold">)</span>
0017 <span style="color:#3f8058">[</span>'a 'b 'c<span style="color:#3f8058">]</span>
0018 <span style="color:#2980b9;background-color:#153042">;END region marker</span>
0019 <span style="color:#7a7c7d">;; this represents integer 28 (</span><span style="color:#ca9219;background-color:#451e1a;font-weight:bold">FIXME</span><span style="color:#7a7c7d">: does not work perfectly atm!)</span>
0020 <span style="color:#f67400">28</span> <span style="color:#f67400">028</span> <span style="color:#3daee9">#e</span><span style="color:#f67400">28</span> <span style="color:#3daee9">#i</span><span style="color:#f67400">28</span>       <span style="color:#7a7c7d">;; Normal, normal, exact, inexact</span>
0021 <span style="color:#3daee9">#b</span><span style="color:#f67400">11100</span> <span style="color:#3daee9">#o</span><span style="color:#f67400">34</span> <span style="color:#3daee9">#d</span><span style="color:#f67400">28</span> <span style="color:#3daee9">#x</span><span style="color:#f67400">1c</span> <span style="color:#7a7c7d">;; Bin, oct, dec, hex</span>
0022 <span style="color:#3daee9">#oe</span><span style="color:#f67400">34</span> <span style="color:#3daee9">#eo</span><span style="color:#f67400">34</span>            <span style="color:#7a7c7d">;; combined.</span>
0023 <span style="color:#3daee9">#o#e</span><span style="color:#f67400">34</span> <span style="color:#3daee9">#e#o</span><span style="color:#f67400">34</span>          <span style="color:#7a7c7d">;; combined.</span>
0024 <span style="color:#7a7c7d">;; inf</span>
0025 <span style="color:#3daee9">#i</span><span style="color:#8e44ad">+</span>inf.0 <span style="color:#f67400">3</span>+inf.0
0026 
0027 <span style="color:#7a7c7d">;; symbols</span>
0028 &amp;symbol-42
0029 symbol-42<span style="color:#7a7c7d">;comment</span>
0030 
0031 <span style="color:#7a7c7d">;; char.</span>
0032 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#3daee9">#\y</span> <span style="color:#3daee9">#\space</span><span style="color:#ff0000;font-weight:bold">)</span> <span style="color:#7a7c7d">;; list: `y' space.</span>
0033 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#3daee9">#\ </span> <span style="color:#3daee9">#\\</span> <span style="color:#3daee9">#\)</span><span style="color:#ff0000;font-weight:bold">)</span> <span style="color:#7a7c7d">;; list of spaces, backslash and`)'.</span>
0034 <span style="color:#3daee9">#\newline</span>     <span style="color:#7a7c7d">;; a newline-char</span>
0035 <span style="color:#3daee9">#\NewLine</span>     <span style="color:#7a7c7d">;; another one :)</span>
0036 <span style="color:#3daee9">#\</span><span style="color:#da4453;text-decoration:underline">pager</span>       <span style="color:#7a7c7d">;; bad char</span>
0037 
0038 <span style="color:#f44f4f">"Hello, world"</span> <span style="color:#7a7c7d">;; a string</span>
0039 
0040 <span style="color:#f44f4f">"hoho, what do you</span>
0041 <span style="color:#f44f4f">want to do  ;; this is NO comment</span>
0042 <span style="color:#f44f4f">with that?"</span>
0043 
0044 <span style="color:#7a7c7d">;; R5RS definiert diese beiden.</span>
0045 <span style="color:#f44f4f">"Das ist </span><span style="color:#3daee9">\"</span><span style="color:#f44f4f">in Anführungszeichen</span><span style="color:#3daee9">\"</span><span style="color:#f44f4f"> und mit </span><span style="color:#3daee9">\\</span><span style="color:#f44f4f"> Backslash."</span>
0046 
0047 <span style="color:#f44f4f">"hexadecimal char </span><span style="color:#3daee9">\x1aF;</span><span style="color:#f44f4f">."</span>
0048 
0049 <span style="color:#7a7c7d">;; Kawa string templates</span>
0050 <span style="color:#f44f4f">&amp;{Hello </span><span style="color:#ff0000;font-weight:bold">&amp;[</span>name<span style="color:#ff0000;font-weight:bold">]</span><span style="color:#f44f4f">!}</span> 'no-string
0051 <span style="color:#f44f4f">&amp;{This has a {braced} section.}</span> 'no-string
0052 <span style="color:#f44f4f">&amp;{</span><span style="color:#3daee9">&amp;#27;</span><span style="color:#f44f4f"> </span><span style="color:#3daee9">&amp;#x1B;</span><span style="color:#f44f4f"> </span><span style="color:#3daee9">&amp;amp;</span><span style="color:#f44f4f"> </span><span style="color:#3daee9">&amp;lt;</span><span style="color:#f44f4f"> </span><span style="color:#3daee9">&amp;gt;</span><span style="color:#f44f4f"> </span><span style="color:#3daee9">&amp;quot;</span><span style="color:#f44f4f"> </span><span style="color:#3daee9">&amp;apos;</span><span style="color:#f44f4f">}</span> 'no-string
0053 <span style="color:#7a7c7d">; Multiline string literals</span>
0054 <span style="color:#ff0000;font-weight:bold">(</span>string-capitalize <span style="color:#f44f4f">&amp;{one two three</span>
0055 <span style="color:#f44f4f">uno dos tres</span>
0056 <span style="color:#f44f4f">}</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:#f44f4f">&amp;{</span>
0058 <span style="color:#f44f4f">     </span><span style="color:#3f8058">&amp;|</span><span style="color:#f44f4f">one two three</span>
0059 <span style="color:#f44f4f">     </span><span style="color:#3f8058">&amp;|</span><span style="color:#f44f4f">uno dos tres</span>
0060 <span style="color:#f44f4f">}</span><span style="color:#ff8800;font-weight:bold">)</span> out<span style="color:#ff0000;font-weight:bold">)</span>
0061 <span style="color:#f44f4f">&amp;{abc</span><span style="color:#3f8058">&amp;-</span><span style="color:#f44f4f"> </span><span style="color:#7a7c7d">#|comment|#</span>
0062 <span style="color:#f44f4f">  def}</span> 'no-string
0063 <span style="color:#f44f4f">&amp;{</span><span style="color:#7a7c7d">&amp;#|line 1|#</span><span style="color:#f44f4f">one two</span>
0064 <span style="color:#f44f4f">  </span><span style="color:#7a7c7d">&amp;#|line 2|#</span><span style="color:#f44f4f"> three</span>
0065 <span style="color:#f44f4f">  </span><span style="color:#7a7c7d">&amp;#|line 3|#</span><span style="color:#f44f4f">uno dos tres</span>
0066 <span style="color:#f44f4f">}</span> 'no-string
0067 <span style="color:#7a7c7d">; Embedded expressions</span>
0068 <span style="color:#f44f4f">&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:#f44f4f">!}</span> 'no-string
0069 <span style="color:#f44f4f">&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:#f44f4f">!}</span> 'no-string
0070 <span style="color:#7a7c7d">; formatting</span>
0071 <span style="color:#f44f4f">&amp;{</span><span style="color:#0099ff;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:#0099ff;font-weight:bold">&amp;~^_&amp;~</span><span style="color:#f44f4f">}</span><span style="color:#3f8058">}</span> 'no-string
0072 <span style="color:#f44f4f">&amp;{</span><span style="color:#0099ff;font-weight:bold">&amp;~{&amp;~a</span><span style="color:#f44f4f">[arr]</span><span style="color:#0099ff;font-weight:bold">&amp;~^_&amp;~</span><span style="color:#f44f4f">}</span><span style="color:#3f8058">}</span> 'no-string
0073 
0074 <span style="color:#7a7c7d">;; Kawa XML literals</span>
0075 <span style="color:#f44f4f">#&lt;p>The result is &lt;b>final&lt;/b>!&lt;/p></span> 'no-xml
0076 <span style="color:#f44f4f">#&lt;em>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:#f44f4f">.&lt;/em></span> 'no-xml
0077 <span style="color:#f44f4f">#&lt;p>This is &lt;(</span><span style="font-weight:bold">if</span> be-bold 'strong 'em<span style="color:#f44f4f">)>important&lt;/>!&lt;/p></span> 'no-xml
0078 <span style="color:#f44f4f">#&lt;p>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:#f44f4f">}>important&lt;/>!&lt;/p></span> 'no-xml
0079 <span style="color:#f44f4f">#&lt;p>Special characters &lt;![CDATA[</span><span style="color:#f44f4f">&lt; > &amp; ' "</span><span style="color:#f44f4f">]]> here.&lt;/p></span> 'no-xml
0080 <span style="color:#f44f4f">#&lt;p>Special characters </span><span style="color:#f67400">&amp;lt;</span><span style="color:#f44f4f"> </span><span style="color:#f67400">&amp;gt;</span><span style="color:#f44f4f"> </span><span style="color:#f67400">&amp;amp;</span><span style="color:#f44f4f"> </span><span style="color:#f67400">&amp;quot;</span><span style="color:#f44f4f"> </span><span style="color:#f67400">&amp;apos;</span><span style="color:#f44f4f"> here.&lt;/p></span> 'no-xml
0081 <span style="color:#f44f4f">#&lt;gnu:b</span><span style="color:#27ae60"> xmlns:gnu=</span><span style="color:#f44f4f">"http://gnu.org/"</span><span style="color:#f44f4f">/></span> 'no-xml
0082 <span style="color:#f44f4f">#&lt;chapter>&lt;?dbhtml</span><span style="color:#27ae60"> filename="intro.html" </span><span style="color:#f44f4f">?></span>
0083 <span style="color:#f44f4f">&lt;title>Introduction&lt;/title></span>
0084 <span style="color:#f44f4f">...</span>
0085 <span style="color:#f44f4f">&lt;/chapter></span> 'no-xml
0086 
0087 
0088 <span style="color:#7a7c7d">;; Kawa Regular expression</span>
0089 <span style="color:#3f8058">#/</span><span style="color:#0099ff;font-weight:bold">a\.c</span><span style="color:#3f8058">/</span>
0090 <span style="color:#3f8058">#/</span><span style="color:#0099ff;font-weight:bold">a</span><span style="color:#3f8058">/</span><span style="color:#0099ff;font-weight:bold">i</span>
0091 <span style="color:#3f8058">#/</span><span style="color:#0099ff;font-weight:bold">a</span><span style="color:#3f8058">/</span><span style="color:#0099ff;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:#3f8058">+</span> <span style="color:#f67400">1</span> <span style="color:#f67400">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:#f44f4f">"blah"</span><span style="color:#888800;font-weight:bold">)</span><span style="color:#ff8800;font-weight:bold">)</span> <span style="color:#7a7c7d">;; `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:#7a7c7d">;; `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:#f67400">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:#3f8058">+</span> x <span style="color:#f67400">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:#7a7c7d">;; `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:#7a7c7d">;; `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:#f67400">5</span><span style="color:#008800;font-weight:bold">)</span><span style="color:#888800;font-weight:bold">)</span> <span style="color:#7a7c7d">;; `do' you may guess!</span>
0103      <span style="color:#888800;font-weight:bold">(</span>i <span style="color:#f67400">0</span> <span style="color:#008800;font-weight:bold">(</span><span style="color:#3f8058">+</span> i <span style="color:#f67400">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:#3f8058">=</span> i <span style="color:#f67400">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:#3f8058">+</span> <span style="color:#f67400">1</span> <span style="color:#f67400">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:#3f8058">+</span> <span style="color:#f67400">1</span> <span style="color:#f67400">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:#7a7c7d">;; same as: `((+ 1 2) ,(+ 1 2))</span>
0109 
0110 <span style="color:#7a7c7d">;; 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:#3f8058">+</span> <span style="color:#f67400">1</span> <span style="color:#f67400">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:#f67400">1</span> <span style="color:#f67400">2</span> <span style="color:#f67400">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:#7a7c7d">;; same as: `((+ 1 2) ,@(+ 1 2))</span>
0113 
0114 <span style="color:#7a7c7d">;; 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->symbol</span> x<span style="color:#888800;font-weight:bold">)</span><span style="color:#ff8800;font-weight:bold">)</span> <span style="color:#7a7c7d">;; `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:#3f8058">=></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:#7a7c7d">;; `=>' highlighting.</span>
0119       <span style="color:#ff8800;font-weight:bold">(</span><span style="font-weight:bold">else</span> <span style="color:#7a7c7d">;; `else' highlighting.</span>
0120        <span style="color:#888800;font-weight:bold">(</span><span style="font-weight:bold">error</span> <span style="color:#f44f4f">"Blah"</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:#7a7c7d">;; `case' highlighting.</span>
0123   <span style="color:#ff8800;font-weight:bold">(</span><span style="color:#888800;font-weight:bold">(</span><span style="color:#f67400">#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:#f67400">#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:#f67400">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:#7a7c7d">;; 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:#3f8058">...</span><span style="color:#a100a1;font-weight:bold">)</span>
0130                       <span style="color:#7a7c7d">;; 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:#3f8058">...</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:#f67400">#t</span><span style="color:#008800;font-weight:bold">)</span><span style="color:#888800;font-weight:bold">)</span> <span style="color:#7a7c7d">;; 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:#7a7c7d">;; 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:#3f8058">...</span><span style="color:#ff0000;font-weight:bold">)</span> <span style="color:#7a7c7d">;; hl `letrec-syntax'.</span>
0137 
0138 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#0099ff;font-weight:bold">define-syntax</span><span style="color:#8e44ad"> 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:#3f8058">...</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:#3f8058">...</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:#7a7c7d">;; variable definitions.</span>
0144 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#0099ff;font-weight:bold">define</span><span style="color:#8e44ad"> natural-numbers </span><span style="color:#7a7c7d">;; hl `define' and the var name</span>
0145   <span style="color:#7a7c7d">;; 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:#7a7c7d">;; 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:#7a7c7d">;; hl `lambda'.</span>
0148               <span style="color:#7a7c7d">;; 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:#3f8058">+</span> x <span style="color:#f67400">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:#f67400">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:#7a7c7d">;; a procedure with unusual but allowed name.</span>
0153 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#0099ff;font-weight:bold">define</span><span style="color:#8e44ad"> 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:#3f8058">+</span> x <span style="color:#f67400">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:#7a7c7d">;; a predicate</span>
0158 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#0099ff;font-weight:bold">define</span><span style="color:#8e44ad"> 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:#3f8058">>=</span> x y<span style="color:#3689e6;font-weight:bold">)</span> <span style="color:#3689e6;font-weight:bold">(</span><span style="color:#3f8058">&lt;=</span> x z<span style="color:#3689e6;font-weight:bold">)</span><span style="color:#008800;font-weight:bold">)</span>
0161         <span style="color:#f67400">#t</span> <span style="color:#7a7c7d">;; True</span>
0162       <span style="color:#f67400">#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:#7a7c7d">;; False.</span>
0163 
0164 <span style="color:#7a7c7d">;; imperative procedure</span>
0165 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#0099ff;font-weight:bold">define</span><span style="color:#8e44ad"> 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:#3f8058">.</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:#0099ff;font-weight:bold">define</span><span style="color:#8e44ad"> 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:#7a7c7d">;; syntactical sugar for procedure-definitions.</span>
0178 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#0099ff;font-weight:bold">define</span><span style="color:#8e44ad"> </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:#7a7c7d">;;;;;;;;;;;;;;;;;;;;;;;;;;;</span>
0183 <span style="color:#7a7c7d">;; NOW: Guile extensions ;;</span>
0184 <span style="color:#7a7c7d">;;;;;;;;;;;;;;;;;;;;;;;;;;;</span>
0185 
0186 <span style="color:#7a7c7d">;; procedure-generator.</span>
0187 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#0099ff;font-weight:bold">define</span><span style="color:#8e44ad"> </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:#7a7c7d">;; scheme doesn't say, which chars may be in variables...</span>
0191 <span style="color:#7a7c7d">;; At least: Guile accepts umlauts</span>
0192 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#0099ff;font-weight:bold">define-private</span><span style="color:#8e44ad"> </span><span style="color:#ff8800;font-weight:bold">(</span>timetr??? sprache<span style="color:#ff8800;font-weight:bold">)</span> <span style="color:#7a7c7d">;; 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:#0099ff;font-weight:bold">define-public</span><span style="color:#8e44ad"> x </span><span style="color:#f67400">#t</span><span style="color:#ff0000;font-weight:bold">)</span>  <span style="color:#7a7c7d">;; hl `define-public'.</span>
0196 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#0099ff;font-weight:bold">define-module</span><span style="color:#8e44ad"> </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:#7a7c7d">;; hl `define-module'.</span>
0197 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#0099ff;font-weight:bold">define-macro</span><span style="color:#8e44ad"> </span><span style="color:#ff8800;font-weight:bold">(</span>neither <span style="color:#3f8058">.</span> exprs<span style="color:#ff8800;font-weight:bold">)</span> <span style="color:#7a7c7d">;; 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:#0099ff;font-weight:bold">defmacro</span><span style="color:#8e44ad"> neither </span>exprs <span style="color:#7a7c7d">;; `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:#7a7c7d">;; 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:#0099ff;font-weight:bold">define-syntax-macro</span><span style="color:#8e44ad"> ...</span><span style="color:#ff0000;font-weight:bold">)</span>
0205 
0206 <span style="color:#7a7c7d">;; hl GOOPS-`defines'</span>
0207 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#0099ff;font-weight:bold">define-method</span><span style="color:#8e44ad"> </span><span style="color:#ff8800;font-weight:bold">(</span>foo bar <span style="color:#888800;font-weight:bold">(</span>baz &lt;vector><span style="color:#888800;font-weight:bold">)</span> qux<span style="color:#ff8800;font-weight:bold">)</span> <span style="color:#3f8058">...</span><span style="color:#ff0000;font-weight:bold">)</span>
0208 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#0099ff;font-weight:bold">define-class</span><span style="color:#8e44ad"> &lt;foo> </span><span style="color:#3f8058">...</span><span style="color:#ff0000;font-weight:bold">)</span>
0209 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#0099ff;font-weight:bold">define-generic</span><span style="color:#8e44ad"> foo</span><span style="color:#ff0000;font-weight:bold">)</span>
0210 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#0099ff;font-weight:bold">define-accessor</span><span style="color:#8e44ad"> bar</span><span style="color:#ff0000;font-weight:bold">)</span>
0211 
0212 <span style="color:#7a7c7d">;; Keywords!</span>
0213 <span style="color:#ff0000;font-weight:bold">(</span>blah #:foo <span style="color:#f67400">33</span> #:bar <span style="color:#f67400">44</span><span style="color:#ff0000;font-weight:bold">)</span>
0214 
0215 <span style="color:#7a7c7d">;; another convention for symbols:</span>
0216 #<span style="color:#3f8058">{</span>foo<span style="color:#3f8058">}</span>#
0217 
0218 #<span style="color:#3f8058">{</span>a
0219 few
0220 lines<span style="color:#3f8058">}</span>#
0221 
0222 #<span style="color:#3f8058">{</span><span style="color:#f67400">4711</span><span style="color:#3f8058">}</span>#
0223 
0224 <span style="color:#7a7c7d">;; more chars.</span>
0225 <span style="color:#3daee9">#\nul</span> <span style="color:#3daee9">#\nl</span> <span style="color:#3daee9">#\esc</span> <span style="color:#3daee9">#\bs</span> <span style="color:#3daee9">#\bel</span> <span style="color:#3daee9">#\syn</span> <span style="color:#3daee9">#\ack</span> <span style="color:#3daee9">#\sp</span> <span style="color:#7a7c7d">;; etc, utc, itc, oops (this is boring)</span>
0226 
0227 <span style="color:#7a7c7d">#| R6RS / SRFI-30 block comment</span>
0228 <span style="color:#7a7c7d">supports #| nested block |# comments |#</span>
0229 'now-no-comment-anymore
0230 
0231 <span style="color:#7a7c7d">#!</span>
0232 <span style="color:#7a7c7d"> guile block-comment.</span>
0233 <span style="color:#7a7c7d">!#</span>
0234 
0235 <span style="color:#7a7c7d">;; now, a bit hairy:</span>
0236 <span style="color:#7a7c7d">#! comment !#</span>
0237 <span style="color:#7a7c7d">still comment!!!</span>
0238 <span style="color:#7a7c7d">!#</span>
0239 'now-no-comment-anymore
0240 
0241 <span style="color:#7a7c7d">;; more precise:</span>
0242 <span style="color:#7a7c7d">#! comment !#</span>
0243 <span style="color:#7a7c7d">still comment</span>
0244 <span style="color:#7a7c7d">!# still comment!</span>
0245 <span style="color:#7a7c7d">!#</span>
0246 'now-no-comment-anymore
0247 
0248 <span style="color:#7a7c7d">;; Datum comment</span>
0249 <span style="color:#7a7c7d">#;(1 2 3)</span> 'now-no-comment-anymore
0250 <span style="color:#7a7c7d">#;1</span> 'now-no-comment-anymore
0251 <span style="color:#7a7c7d">#;#o12</span> 'now-no-comment-anymore
0252 <span style="color:#7a7c7d">#;"bla bla\""</span> 'now-no-comment-anymore
0253 <span style="color:#7a7c7d">#;[1 2 3]</span> 'now-no-comment-anymore
0254 <span style="color:#7a7c7d">#;[1 [2 (3 (4))]]</span> 'now-no-comment-anymore
0255 <span style="color:#7a7c7d">#;(1 (2 [3 [4]]))</span> 'now-no-comment-anymore
0256 <span style="color:#7a7c7d">#;#/reg/im</span> 'now-no-comment-anymore
0257 <span style="color:#7a7c7d">#;#&lt;p>The result is &lt;b>final&lt;/b>!&lt;/p></span> 'now-no-comment-anymore
0258 <span style="color:#7a7c7d">#;#&lt;em>The result is &amp;{result}.&lt;/em></span> 'now-no-comment-anymore
0259 <span style="color:#7a7c7d">#;#&lt;p>This is &lt;(if be-bold 'strong 'em)>important&lt;/>!&lt;/p></span> 'now-no-comment-anymore
0260 <span style="color:#7a7c7d">#;#&lt;p>This is &lt;{(if be-bold 'strong 'em)}>important&lt;/>!&lt;/p></span> 'now-no-comment-anymore
0261 <span style="color:#7a7c7d">#;#&lt;p>Specal characters &lt;![CDATA[&lt; > &amp; ' "]]> here.&lt;/p></span> 'now-no-comment-anymore
0262 <span style="color:#7a7c7d">#;#&lt;p>Specal characters &amp;lt; &amp;gt; &amp;amp; &amp;quot; &amp;apos; here.&lt;/p></span> 'now-no-comment-anymore
0263 <span style="color:#7a7c7d">#;#&lt;gnu:b xmlns:gnu="http://gnu.org/"/></span> 'now-no-comment-anymore
0264 <span style="color:#7a7c7d">#;#&lt;chapter>&lt;?dbhtml filename="intro.html" ?></span>
0265 <span style="color:#7a7c7d">&lt;title>Introduction&lt;/title></span>
0266 <span style="color:#7a7c7d">...</span>
0267 <span style="color:#7a7c7d">&lt;/chapter></span> 'now-no-comment-anymore
0268 <span style="color:#7a7c7d">#;#&amp;{Hello &amp;[name]!}</span> 'now-no-comment-anymore
0269 <span style="color:#7a7c7d">#;&amp;{This has a {braced} section.}</span> 'now-no-comment-anymore
0270 <span style="color:#7a7c7d">#;&amp;{&amp;#27;&amp;#x1B; &amp;amp; &amp;lt; &amp;gt; &amp;quot; &amp;apos;}</span> 'now-no-comment-anymore
0271 <span style="color:#7a7c7d">#;(string-capitalize &amp;{one two three</span>
0272 <span style="color:#7a7c7d">uno dos tres</span>
0273 <span style="color:#7a7c7d">})</span> 'now-no-comment-anymore
0274 <span style="color:#7a7c7d">#;(write (string-capitalize &amp;{</span>
0275 <span style="color:#7a7c7d">     &amp;|one two three</span>
0276 <span style="color:#7a7c7d">     &amp;|uno dos tres</span>
0277 <span style="color:#7a7c7d">}) out)</span> 'now-no-comment-anymore
0278 <span style="color:#7a7c7d">#;&amp;{abc&amp;-</span>
0279 <span style="color:#7a7c7d">  def}</span> 'now-no-comment-anymore
0280 <span style="color:#7a7c7d">#;&amp;{&amp;#|line 1|#one two</span>
0281 <span style="color:#7a7c7d">  &amp;#|line 2|# three</span>
0282 <span style="color:#7a7c7d">  &amp;#|line 3|#uno dos tres</span>
0283 <span style="color:#7a7c7d">}</span> 'now-no-comment-anymore
0284 <span style="color:#7a7c7d">#;&amp;{Hello &amp;[(string-capitalize name)]!}</span> 'now-no-comment-anymore
0285 <span style="color:#7a7c7d">#;&amp;{Hello &amp;(string-capitalize name)!}</span> 'now-no-comment-anymore
0286 <span style="color:#7a7c7d">#;&amp;{&amp;~{&amp;[arr]&amp;~^_&amp;~}}</span> 'now-no-comment-anymore
0287 <span style="color:#7a7c7d">#;&amp;{&amp;~{&amp;~a[arr]&amp;~^_&amp;~}}</span> 'now-no-comment-anymore
0288 <span style="color:#7a7c7d">#;(</span>
0289 <span style="color:#7a7c7d">1</span>
0290 <span style="color:#7a7c7d">2</span>
0291 <span style="color:#7a7c7d">3)</span> 'now-no-comment-anymore
0292 
0293 <span style="color:#7a7c7d">; identifier with hex-escape</span>
0294 H\x65;llo<span style="color:#7a7c7d">; commment</span>
0295 H\x65;\x6c;lo<span style="color:#7a7c7d">; 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:#3f8058">></span> foo <span style="color:#f67400">10</span><span style="color:#ff8800;font-weight:bold">)</span> <span style="color:#7a7c7d">;; 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:#3f8058">-</span> foo <span style="color:#f67400">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:#f67400">#t</span> <span style="color:#7a7c7d">;; 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:#3f8058">.</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:#7a7c7d">;; 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:#7a7c7d">;; Highlight `continue'.</span>
0305 </pre></body></html>