<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
<head>
<style>.content {
padding: 20px;
height: 100%;
width: 944px;
margin-left: auto;
margin-right: auto;
}
.fold {
width: 20px;
float: left;
-webkit-touch-callout: none;
-webkit-user-select: none;
-khtml-user-select: none;
-moz-user-select: none;
-ms-user-select: none;
user-select: none;
}
.number {
width: 45px;
float: left;
margin-right: 10px;
text-align: right;
-webkit-touch-callout: none;
-webkit-user-select: none;
-khtml-user-select: none;
-moz-user-select: none;
-ms-user-select: none;
user-select: none;
}
.line {
}
.content {
font-family: "Monospace";
font-size: 1em;
background: #3f3f3f;
color: White;
width: 944px;
padding: 20px;
height: 100%;
margin-left: auto;
margin-right: auto;
}
font.Alert {
color: Yellow;
font-weight: bold;
}
font.Annotation {
color: Yellow;
font-style: italic;
}
font.Attribute {
color: LightPink;
}
font.BaseN {
color: Gold;
}
font.BuiltIn {
color: Coral;
}
font.Char {
color: Cyan;
}
font.Comment {
color: Beige;
font-style: italic;
}
font.CommentVar {
color: LightBlue;
font-style: italic;
}
font.Constant {
color: White;
font-weight: bold;
}
font.ControlFlow {
color: DeepPink;
}
font.DataType {
color: CadetBlue;
}
font.DecVal {
color: MediumPurple;
font-weight: bold;
}
font.Documentation {
color: Gold;
font-style: italic;
}
font.Error {
color: Red;
font-weight: bold;
}
font.Extension {
color: DarkGray;
font-weight: bold;
}
font.Float {
color: DarkViolet;
font-weight: bold;
}
font.Function {
color: RosyBrown;
}
font.Import {
color: PaleVioletRed;
}
font.Information {
color: LightGreen;
font-style: italic;
}
font.Keyword {
color: LightGreen;
font-weight: bold;
}
font.Normal {
color: White;
}
font.Operator {
color: Magenta;
}
font.Others {
color: GreenYellow;
}
font.Preprocessor {
color: DarkSeaGreen ;
font-weight: bold;
}
font.RegionMarker {
color: Plum;
}
font.SpecialChar {
color: Plum;
font-weight: bold;
}
font.SpecialString {
color: LightBlue;
}
font.String {
color: MediumAquaMarine;
}
font.Variable {
color: Turquoise;
font-weight: bold;
}
font.VerbatimString {
color: LightSkyBlue;
}
font.Warning {
color: Brown;
font-weight: bold;
}
</style>
<title>Kamelon output</title>
</head>
<body>
<div class="content">
<div id="1" class="line"><font class="Comment">; This is a test file to test kates scheme highlighting</font></br></div>
<div id="2" class="line"><font class="Comment">; This is a comment</font></br></div>
<div id="3" class="line"></br></div>
<div id="4" class="line"><font class="Comment">;; Another comment, usually used.</font></br></div>
<div id="5" class="line"><font class="RegionMarker">;BEGIN region marker</font></br></div>
<div id="6" class="line"><font class="Comment">;; a vektor</font></br></div>
<div id="7" class="line"><font class="Normal">#</font><font class="Attribute">(</font><font class="Float">1</font><font class="Normal"> </font><font class="Float">2</font><font class="Normal"> </font><font class="Float">3</font><font class="Normal"> </font><font class="Float">4</font><font class="Normal"> </font><font class="Float">5</font><font class="Attribute">)</font></br></div>
<div id="8" class="line"><font class="RegionMarker">;END region marker</font></br></div>
<div id="9" class="line"><font class="Comment">;; this represents integer 28 (FIXME: does not work perfectly atm!)</font></br></div>
<div id="10" class="line"><font class="Float">28</font><font class="Normal"> </font><font class="Float">028</font><font class="Normal"> </font><font class="Char">#e</font><font class="DecVal">28</font><font class="Normal"> </font><font class="Char">#i</font><font class="DecVal">28</font><font class="Normal"> </font><font class="Comment">;; Normal, normal, exact, inexact</font></br></div>
<div id="11" class="line"><font class="Char">#b</font><font class="DecVal">11100</font><font class="Normal"> </font><font class="Char">#o</font><font class="DecVal">34</font><font class="Normal"> </font><font class="Char">#d</font><font class="DecVal">28</font><font class="Normal"> </font><font class="Char">#x</font><font class="DecVal">1</font><font class="Normal">c </font><font class="Comment">;; Bin, okt, dec, hex</font></br></div>
<div id="12" class="line"><font class="Char">#o</font><font class="Normal">e</font><font class="DecVal">34</font><font class="Normal"> </font><font class="Char">#e</font><font class="Normal">o</font><font class="DecVal">34</font><font class="Normal"> </font><font class="Comment">;; combined.</font></br></div>
<div id="13" class="line"></br></div>
<div id="14" class="line"><font class="Comment">;; char.</font></br></div>
<div id="15" class="line"><font class="Attribute">(</font><font class="Char">#\y</font><font class="Normal"> </font><font class="Char">#\s</font><font class="Normal">pace</font><font class="Attribute">)</font><font class="Normal"> </font><font class="Comment">;; list: `y' space.</font></br></div>
<div id="16" class="line"><font class="Attribute">(</font><font class="Char">#\ </font><font class="Normal"> </font><font class="Char">#\\</font><font class="Normal"> </font><font class="Char">#\)</font><font class="Attribute">)</font><font class="Normal"> </font><font class="Comment">;; list of spaces, backslash and`)'.</font></br></div>
<div id="17" class="line"><font class="Char">#\n</font><font class="Normal">ewline </font><font class="Comment">;; a newline-char</font></br></div>
<div id="18" class="line"><font class="Char">#\N</font><font class="Normal">ewLine </font><font class="Comment">;; another one :)</font></br></div>
<div id="19" class="line"></br></div>
<div id="20" class="line"><font class="String">"Hello, world"</font><font class="Normal"> </font><font class="Comment">;; a string</font></br></div>
<div id="21" class="line"></br></div>
<div id="22" class="line"><font class="String">"hoho, what do you</font></br></div>
<div id="23" class="line"><font class="String">want to do ;; this is NO comment</font></br></div>
<div id="24" class="line"><font class="String">with that?"</font></br></div>
<div id="25" class="line"></br></div>
<div id="26" class="line"><font class="Comment">;; R5RS definiert diese beiden.</font></br></div>
<div id="27" class="line"><font class="String">"Das ist </font><font class="Char">\"</font><font class="String">in Anführungszeichen</font><font class="Char">\"</font><font class="String"> und mit </font><font class="Char">\\</font><font class="String"> Backslash."</font></br></div>
<div id="28" class="line"></br></div>
<div id="29" class="line"><font class="Attribute">(</font><font class="Keyword">let</font><font class="Normal"> </font><font class="BuiltIn">(</font><font class="Constant">(</font><font class="Normal">x </font><font class="Extension">(</font><font class="Normal">+ </font><font class="Float">1</font><font class="Normal"> </font><font class="Float">2</font><font class="Extension">)</font><font class="Constant">)</font><font class="Normal"> </font><font class="Constant">(</font><font class="Normal">y </font><font class="String">"blah"</font><font class="Constant">)</font><font class="BuiltIn">)</font><font class="Normal"> </font><font class="Comment">;; `let' highlighting.</font></br></div>
<div id="30" class="line"><font class="Normal"> </font><font class="BuiltIn">(</font><font class="Keyword">and</font><font class="Normal"> </font><font class="Constant">(</font><font class="Normal">number? x</font><font class="Constant">)</font><font class="Normal"> </font><font class="Comment">;; `and' highlighting.</font></br></div>
<div id="31" class="line"><font class="Normal"> </font><font class="Constant">(</font><font class="Keyword">string</font><font class="Normal">? y</font><font class="Constant">)</font><font class="BuiltIn">)</font><font class="Attribute">)</font></br></div>
<div id="32" class="line"></br></div>
<div id="33" class="line"><font class="Attribute">(</font><font class="Keyword">let</font><font class="Normal">* </font><font class="BuiltIn">(</font><font class="Constant">(</font><font class="Normal">x </font><font class="Float">2</font><font class="Constant">)</font><font class="Normal"> </font><font class="Constant">(</font><font class="Normal">y </font><font class="Extension">(</font><font class="Normal">+ x </font><font class="Float">1</font><font class="Extension">)</font><font class="Constant">)</font><font class="BuiltIn">)</font><font class="Normal"> </font><font class="Comment">;; `let*' too.</font></br></div>
<div id="34" class="line"><font class="Normal"> </font><font class="BuiltIn">(</font><font class="Keyword">or</font><font class="Normal"> </font><font class="Constant">(</font><font class="Normal">negative? x</font><font class="Constant">)</font><font class="Normal"> </font><font class="Comment">;; `or' anyways.</font></br></div>
<div id="35" class="line"><font class="Normal"> </font><font class="Constant">(</font><font class="Normal">negative? y</font><font class="Constant">)</font><font class="BuiltIn">)</font><font class="Attribute">)</font></br></div>
<div id="36" class="line"></br></div>
<div id="37" class="line"><font class="Attribute">(</font><font class="Keyword">do</font><font class="Normal"> </font><font class="BuiltIn">(</font><font class="Constant">(</font><font class="Normal">vec </font><font class="Extension">(</font><font class="Normal">make-</font><font class="Keyword">vector</font><font class="Normal"> </font><font class="Float">5</font><font class="Extension">)</font><font class="Constant">)</font><font class="Normal"> </font><font class="Comment">;; `do' you may guess!</font></br></div>
<div id="38" class="line"><font class="Normal"> </font><font class="Constant">(</font><font class="Normal">i </font><font class="Float">0</font><font class="Normal"> </font><font class="Extension">(</font><font class="Normal">+ i </font><font class="Float">1</font><font class="Extension">)</font><font class="Constant">)</font><font class="BuiltIn">)</font></br></div>
<div id="39" class="line"><font class="Normal"> </font><font class="BuiltIn">(</font><font class="Constant">(</font><font class="Normal">= i </font><font class="Float">5</font><font class="Constant">)</font><font class="Normal"> vec</font><font class="BuiltIn">)</font></br></div>
<div id="40" class="line"><font class="Normal"> </font><font class="BuiltIn">(</font><font class="Keyword">vector</font><font class="Normal">-set! vec i i</font><font class="BuiltIn">)</font><font class="Attribute">)</font></br></div>
<div id="41" class="line"></br></div>
<div id="42" class="line"><font class="Attribute">(</font><font class="Normal">quasiquote </font><font class="BuiltIn">(</font><font class="Constant">(</font><font class="Normal">+ </font><font class="Float">1</font><font class="Normal"> </font><font class="Float">2</font><font class="Constant">)</font><font class="Normal"> </font><font class="Constant">(</font><font class="Normal">unquote </font><font class="Extension">(</font><font class="Normal">+ </font><font class="Float">1</font><font class="Normal"> </font><font class="Float">2</font><font class="Extension">)</font><font class="Constant">)</font><font class="BuiltIn">)</font><font class="Attribute">)</font></br></div>
<div id="43" class="line"><font class="Comment">;; same as: `((+ 1 2) ,(+ 1 2))</font></br></div>
<div id="44" class="line"></br></div>
<div id="45" class="line"><font class="Comment">;; see above.</font></br></div>
<div id="46" class="line"><font class="Attribute">(</font><font class="Normal">quasiquote </font><font class="BuiltIn">(</font><font class="Constant">(</font><font class="Normal">+ </font><font class="Float">1</font><font class="Normal"> </font><font class="Float">2</font><font class="Constant">)</font><font class="Normal"> </font><font class="Constant">(</font><font class="Normal">unquote-splicing </font><font class="Extension">(</font><font class="Keyword">list</font><font class="Normal"> </font><font class="Float">1</font><font class="Normal"> </font><font class="Float">2</font><font class="Normal"> </font><font class="Float">3</font><font class="Extension">)</font><font class="Constant">)</font><font class="BuiltIn">)</font><font class="Attribute">)</font></br></div>
<div id="47" class="line"><font class="Comment">;; same as: `((+ 1 2) ,@(+ 1 2))</font></br></div>
<div id="48" class="line"></br></div>
<div id="49" class="line"><font class="Comment">;; not necessary.</font></br></div>
<div id="50" class="line"><font class="Attribute">(</font><font class="Normal">quote </font><font class="BuiltIn">()</font><font class="Attribute">)</font></br></div>
<div id="51" class="line"></br></div>
<div id="52" class="line"><font class="Attribute">(</font><font class="Keyword">cond</font><font class="Normal"> </font><font class="BuiltIn">(</font><font class="Constant">(</font><font class="Keyword">string</font><font class="Normal">? x</font><font class="Constant">)</font><font class="Normal"> </font><font class="Constant">(</font><font class="Keyword">string</font><font class="Normal">->symbol x</font><font class="Constant">)</font><font class="BuiltIn">)</font><font class="Normal"> </font><font class="Comment">;; `cond' highlighting.</font></br></div>
<div id="53" class="line"><font class="Normal"> </font><font class="BuiltIn">(</font><font class="Constant">(</font><font class="Normal">symbol? x</font><font class="Constant">)</font><font class="Normal"> => </font><font class="Constant">(</font><font class="Keyword">lambda</font><font class="Normal"> </font><font class="Extension">(</font><font class="Normal">x</font><font class="Extension">)</font><font class="Normal"> x</font><font class="Constant">)</font><font class="BuiltIn">)</font><font class="Normal"> </font><font class="Comment">;; `=>' highlighting.</font></br></div>
<div id="54" class="line"><font class="Normal"> </font><font class="BuiltIn">(</font><font class="Keyword">else</font><font class="Normal"> </font><font class="Comment">;; `else' highlighting.</font></br></div>
<div id="55" class="line"><font class="Normal"> </font><font class="Constant">(</font><font class="Normal">error </font><font class="String">"Blah"</font><font class="Constant">)</font><font class="BuiltIn">)</font><font class="Attribute">)</font></br></div>
<div id="56" class="line"></br></div>
<div id="57" class="line"><font class="Attribute">(</font><font class="Keyword">case</font><font class="Normal"> x </font><font class="Comment">;; `case' highlighting.</font></br></div>
<div id="58" class="line"><font class="Normal"> </font><font class="BuiltIn">(</font><font class="Constant">(</font><font class="DecVal">#t</font><font class="Constant">)</font><font class="Normal"> 'true</font><font class="BuiltIn">)</font><font class="Normal"> </font><font class="BuiltIn">(</font><font class="Constant">(</font><font class="DecVal">#f</font><font class="Constant">)</font><font class="Normal"> 'false</font><font class="BuiltIn">)</font></br></div>
<div id="59" class="line"><font class="Normal"> </font><font class="BuiltIn">(</font><font class="Constant">(</font><font class="Extension">()</font><font class="Constant">)</font><font class="Normal"> 'null</font><font class="BuiltIn">)</font></br></div>
<div id="60" class="line"><font class="Normal"> </font><font class="BuiltIn">(</font><font class="Constant">(</font><font class="Float">0</font><font class="Constant">)</font><font class="Normal"> 'zero</font><font class="BuiltIn">)</font><font class="Attribute">)</font></br></div>
<div id="61" class="line"></br></div>
<div id="62" class="line"><font class="Comment">;; highlight `let-syntax' and `syntax-rules' .</font></br></div>
<div id="63" class="line"><font class="Attribute">(</font><font class="Keyword">let</font><font class="Normal">-syntax </font><font class="BuiltIn">(</font><font class="Constant">(</font><font class="Normal">when </font><font class="Extension">(</font><font class="Normal">syntax-rules </font><font class="Others">()</font></br></div>
<div id="64" class="line"><font class="Normal"> </font><font class="Others">(</font><font class="Preprocessor">(</font><font class="Normal">when test stmt1 stmt2 ...</font><font class="Preprocessor">)</font></br></div>
<div id="65" class="line"><font class="Normal"> </font><font class="Comment">;; hl `begin' .</font></br></div>
<div id="66" class="line"><font class="Normal"> </font><font class="Preprocessor">(</font><font class="Keyword">if</font><font class="Normal"> test </font><font class="Attribute">(</font><font class="Keyword">begin</font><font class="Normal"> stmt1 stmt2 ...</font><font class="Attribute">)</font><font class="Preprocessor">)</font><font class="Others">)</font><font class="Extension">)</font><font class="Constant">)</font><font class="BuiltIn">)</font></br></div>
<div id="67" class="line"><font class="Normal"> </font><font class="BuiltIn">(</font><font class="Keyword">let</font><font class="Normal"> </font><font class="Constant">(</font><font class="Extension">(</font><font class="Keyword">if</font><font class="Normal"> </font><font class="DecVal">#t</font><font class="Extension">)</font><font class="Constant">)</font><font class="Normal"> </font><font class="Comment">;; here`if' is actually no keyword.</font></br></div>
<div id="68" class="line"><font class="Normal"> </font><font class="Constant">(</font><font class="Normal">when </font><font class="Keyword">if</font><font class="Normal"> </font><font class="Extension">(</font><font class="Normal">set! </font><font class="Keyword">if</font><font class="Normal"> 'now</font><font class="Extension">)</font><font class="Constant">)</font><font class="Normal"> </font><font class="Comment">;; nor here.</font></br></div>
<div id="69" class="line"><font class="Normal"> </font><font class="Keyword">if</font><font class="BuiltIn">)</font><font class="Attribute">)</font></br></div>
<div id="70" class="line"></br></div>
<div id="71" class="line"><font class="Attribute">(</font><font class="Keyword">letrec</font><font class="Normal">-syntax ...</font><font class="Attribute">)</font><font class="Normal"> </font><font class="Comment">;; hl `letrec-syntax'.</font></br></div>
<div id="72" class="line"></br></div>
<div id="73" class="line"><font class="Attribute">(</font><font class="ControlFlow">define</font><font class="Function">-syntax </font><font class="Normal">when</font></br></div>
<div id="74" class="line"><font class="Normal"> </font><font class="BuiltIn">(</font><font class="Normal">syntax-rules </font><font class="Constant">()</font></br></div>
<div id="75" class="line"><font class="Normal"> </font><font class="Constant">(</font><font class="Extension">(</font><font class="Normal">when test stmt1 stmt2 ...</font><font class="Extension">)</font></br></div>
<div id="76" class="line"><font class="Normal"> </font><font class="Extension">(</font><font class="Keyword">if</font><font class="Normal"> test </font><font class="Others">(</font><font class="Keyword">begin</font><font class="Normal"> stmt1 stmt2 ...</font><font class="Others">)</font><font class="Extension">)</font><font class="Constant">)</font><font class="BuiltIn">)</font><font class="Attribute">)</font><font class="Normal">)</font></br></div>
<div id="77" class="line"></br></div>
<div id="78" class="line"><font class="Comment">;; variable definitions.</font></br></div>
<div id="79" class="line"><font class="Attribute">(</font><font class="ControlFlow">define</font><font class="Function"> natural-numbers </font><font class="Comment">;; hl `define' and the var name</font></br></div>
<div id="80" class="line"><font class="Normal"> </font><font class="Comment">;; endless stream of all natual numbers.</font></br></div>
<div id="81" class="line"><font class="Normal"> </font><font class="BuiltIn">(</font><font class="Keyword">letrec</font><font class="Normal"> </font><font class="Constant">(</font><font class="Extension">(</font><font class="Normal">next-cell </font><font class="Comment">;; hl `letrec'.</font></br></div>
<div id="82" class="line"><font class="Normal"> </font><font class="Others">(</font><font class="Keyword">lambda</font><font class="Normal"> </font><font class="Preprocessor">(</font><font class="Normal">x</font><font class="Preprocessor">)</font><font class="Normal"> </font><font class="Comment">;; hl `lambda'.</font></br></div>
<div id="83" class="line"><font class="Normal"> </font><font class="Comment">;; hl `delay' .</font></br></div>
<div id="84" class="line"><font class="Normal"> </font><font class="Preprocessor">(</font><font class="Keyword">cons</font><font class="Normal"> x </font><font class="Attribute">(</font><font class="Normal">delay </font><font class="BuiltIn">(</font><font class="Normal">next-cell </font><font class="Constant">(</font><font class="Normal">+ x </font><font class="Float">1</font><font class="Constant">)</font><font class="BuiltIn">)</font><font class="Attribute">)</font><font class="Preprocessor">)</font><font class="Others">)</font><font class="Extension">)</font><font class="Constant">)</font></br></div>
<div id="85" class="line"><font class="Normal"> </font><font class="Constant">(</font><font class="Normal">next-cell </font><font class="Float">0</font><font class="Constant">)</font><font class="BuiltIn">)</font><font class="Attribute">)</font></br></div>
<div id="86" class="line"></br></div>
<div id="87" class="line"><font class="Comment">;; a procedure with unusual but allowed name.</font></br></div>
<div id="88" class="line"><font class="Attribute">(</font><font class="ControlFlow">define</font><font class="Function"> 1+</font></br></div>
<div id="89" class="line"><font class="Normal"> </font><font class="BuiltIn">(</font><font class="Keyword">lambda</font><font class="Normal"> </font><font class="Constant">(</font><font class="Normal">x</font><font class="Constant">)</font></br></div>
<div id="90" class="line"><font class="Normal"> </font><font class="Constant">(</font><font class="Normal">+ x </font><font class="Float">1</font><font class="Constant">)</font><font class="BuiltIn">)</font><font class="Attribute">)</font></br></div>
<div id="91" class="line"></br></div>
<div id="92" class="line"><font class="Comment">;; a predicate</font></br></div>
<div id="93" class="line"><font class="Attribute">(</font><font class="ControlFlow">define</font><font class="Function"> between</font><font class="Normal">?</font></br></div>
<div id="94" class="line"><font class="Normal"> </font><font class="BuiltIn">(</font><font class="Keyword">lambda</font><font class="Normal"> </font><font class="Constant">(</font><font class="Normal">x y z</font><font class="Constant">)</font></br></div>
<div id="95" class="line"><font class="Normal"> </font><font class="Constant">(</font><font class="Keyword">if</font><font class="Normal"> </font><font class="Extension">(</font><font class="Keyword">and</font><font class="Normal"> </font><font class="Others">(</font><font class="Normal">>= x y</font><font class="Others">)</font><font class="Normal"> </font><font class="Others">(</font><font class="Normal"><= x z</font><font class="Others">)</font><font class="Extension">)</font></br></div>
<div id="96" class="line"><font class="Normal"> </font><font class="DecVal">#t</font><font class="Normal"> </font><font class="Comment">;; True</font></br></div>
<div id="97" class="line"><font class="Normal"> </font><font class="DecVal">#f</font><font class="Constant">)</font><font class="BuiltIn">)</font><font class="Attribute">)</font><font class="Normal"> </font><font class="Comment">;; False.</font></br></div>
<div id="98" class="line"></br></div>
<div id="99" class="line"><font class="Comment">;; imperative procedure</font></br></div>
<div id="100" class="line"><font class="Attribute">(</font><font class="ControlFlow">define</font><font class="Function"> set-something</font><font class="Normal">!</font></br></div>
<div id="101" class="line"><font class="Normal"> </font><font class="BuiltIn">(</font><font class="Keyword">lambda</font><font class="Normal"> </font><font class="Constant">(</font><font class="Normal">required-argument another-one . all-remaining-args</font><font class="Constant">)</font></br></div>
<div id="102" class="line"><font class="Normal"> </font><font class="Constant">(</font><font class="Normal">set-</font><font class="Keyword">car</font><font class="Normal">! another-one </font><font class="Extension">(</font><font class="Keyword">lambda</font><font class="Normal"> all-args</font></br></div>
<div id="103" class="line"><font class="Normal"> </font><font class="Others">(</font><font class="Normal">set-</font><font class="Keyword">cdr</font><font class="Normal">! required-argument</font></br></div>
<div id="104" class="line"><font class="Normal"> </font><font class="Preprocessor">(</font><font class="Keyword">append</font><font class="Normal"> all-remaining-args</font></br></div>
<div id="105" class="line"><font class="Normal"> all-args</font><font class="Preprocessor">)</font><font class="Others">)</font><font class="Extension">)</font><font class="Constant">)</font><font class="BuiltIn">)</font><font class="Attribute">)</font></br></div>
<div id="106" class="line"></br></div>
<div id="107" class="line"><font class="Attribute">(</font><font class="ControlFlow">define</font><font class="Function"> compose</font></br></div>
<div id="108" class="line"><font class="Normal"> </font><font class="BuiltIn">(</font><font class="Keyword">lambda</font><font class="Normal"> </font><font class="Constant">(</font><font class="Normal">f g</font><font class="Constant">)</font></br></div>
<div id="109" class="line"><font class="Normal"> </font><font class="Constant">(</font><font class="Keyword">lambda</font><font class="Normal"> </font><font class="Extension">(</font><font class="Normal">x</font><font class="Extension">)</font></br></div>
<div id="110" class="line"><font class="Normal"> </font><font class="Extension">(</font><font class="Normal">f </font><font class="Others">(</font><font class="Normal">g x</font><font class="Others">)</font><font class="Extension">)</font><font class="Constant">)</font><font class="BuiltIn">)</font><font class="Attribute">)</font></br></div>
<div id="111" class="line"></br></div>
<div id="112" class="line"><font class="Comment">;; syntactical sugar for procedure-definitions.</font></br></div>
<div id="113" class="line"><font class="Attribute">(</font><font class="ControlFlow">define</font><font class="Function"> </font><font class="BuiltIn">(</font><font class="Normal">compose f g</font><font class="BuiltIn">)</font></br></div>
<div id="114" class="line"><font class="Normal"> </font><font class="BuiltIn">(</font><font class="Keyword">lambda</font><font class="Normal"> </font><font class="Constant">(</font><font class="Normal">x</font><font class="Constant">)</font></br></div>
<div id="115" class="line"><font class="Normal"> </font><font class="Constant">(</font><font class="Normal">f </font><font class="Extension">(</font><font class="Normal">g x</font><font class="Extension">)</font><font class="Constant">)</font><font class="BuiltIn">)</font><font class="Attribute">)</font></br></div>
<div id="116" class="line"></br></div>
<div id="117" class="line"><font class="Comment">;;;;;;;;;;;;;;;;;;;;;;;;;;;</font></br></div>
<div id="118" class="line"><font class="Comment">;; NOW: Guile extensions ;;</font></br></div>
<div id="119" class="line"><font class="Comment">;;;;;;;;;;;;;;;;;;;;;;;;;;;</font></br></div>
<div id="120" class="line"></br></div>
<div id="121" class="line"><font class="Comment">;; procedure-generator.</font></br></div>
<div id="122" class="line"><font class="Attribute">(</font><font class="ControlFlow">define</font><font class="Function"> </font><font class="BuiltIn">(</font><font class="Constant">(</font><font class="Normal">compose f g</font><font class="Constant">)</font><font class="Normal"> x</font><font class="BuiltIn">)</font></br></div>
<div id="123" class="line"><font class="Normal"> </font><font class="BuiltIn">(</font><font class="Normal">f </font><font class="Constant">(</font><font class="Normal">g x</font><font class="Constant">)</font><font class="BuiltIn">)</font><font class="Attribute">)</font></br></div>
<div id="124" class="line"></br></div>
<div id="125" class="line"><font class="Comment">;; scheme doesn't say, which chars may be in variables...</font></br></div>
<div id="126" class="line"><font class="Comment">;; At least: Guile accepts umlauts</font></br></div>
<div id="127" class="line"><font class="Attribute">(</font><font class="ControlFlow">define</font><font class="Function">-private </font><font class="BuiltIn">(</font><font class="Normal">timetr??? sprache</font><font class="BuiltIn">)</font><font class="Normal"> </font><font class="Comment">;; hl `define-private'.</font></br></div>
<div id="128" class="line"><font class="Normal"> </font><font class="BuiltIn">(</font><font class="Keyword">list</font><font class="Normal">-dialekt? sprache</font><font class="BuiltIn">)</font><font class="Attribute">)</font></br></div>
<div id="129" class="line"></br></div>
<div id="130" class="line"><font class="Attribute">(</font><font class="ControlFlow">define</font><font class="Function">-public </font><font class="Normal">x </font><font class="DecVal">#t</font><font class="Attribute">)</font><font class="Normal"> </font><font class="Comment">;; hl `define-public'.</font></br></div>
<div id="131" class="line"><font class="Attribute">(</font><font class="ControlFlow">define</font><font class="Function">-module </font><font class="BuiltIn">(</font><font class="Normal">foo bar</font><font class="BuiltIn">)</font><font class="Attribute">)</font><font class="Normal"> </font><font class="Comment">;; hl `define-module'.</font></br></div>
<div id="132" class="line"><font class="Attribute">(</font><font class="ControlFlow">define</font><font class="Function">-macro </font><font class="BuiltIn">(</font><font class="Normal">neither . exprs</font><font class="BuiltIn">)</font><font class="Normal"> </font><font class="Comment">;; hl `define-macro'.</font></br></div>
<div id="133" class="line"><font class="Normal"> `</font><font class="BuiltIn">(</font><font class="Keyword">and</font><font class="Normal"> ,@</font><font class="Constant">(</font><font class="Normal">map </font><font class="Extension">(</font><font class="Keyword">lambda</font><font class="Normal"> </font><font class="Others">(</font><font class="Normal">x</font><font class="Others">)</font><font class="Normal"> `</font><font class="Others">(</font><font class="Keyword">not</font><font class="Normal"> ,x</font><font class="Others">)</font><font class="Extension">)</font><font class="Normal"> exprs</font><font class="Constant">)</font><font class="BuiltIn">)</font><font class="Attribute">)</font></br></div>
<div id="134" class="line"></br></div>
<div id="135" class="line"><font class="Attribute">(</font><font class="ControlFlow">defmacro</font><font class="Function"> neither </font><font class="Normal">exprs </font><font class="Comment">;; `defmacro' as well.</font></br></div>
<div id="136" class="line"><font class="Normal"> `</font><font class="BuiltIn">(</font><font class="Keyword">and</font><font class="Normal"> ,@</font><font class="Constant">(</font><font class="Normal">map </font><font class="Extension">(</font><font class="Keyword">lambda</font><font class="Normal"> </font><font class="Others">(</font><font class="Normal">x</font><font class="Others">)</font><font class="Normal"> `</font><font class="Others">(</font><font class="Keyword">not</font><font class="Normal"> ,x</font><font class="Others">)</font><font class="Extension">)</font><font class="Normal"> exprs</font><font class="Constant">)</font><font class="BuiltIn">)</font><font class="Attribute">)</font></br></div>
<div id="137" class="line"></br></div>
<div id="138" class="line"><font class="Comment">;; hl, but I really don't know what this is supposed to do :-)</font></br></div>
<div id="139" class="line"><font class="Attribute">(</font><font class="ControlFlow">define</font><font class="Function">-syntax-macro </font><font class="Normal">...</font><font class="Attribute">)</font></br></div>
<div id="140" class="line"></br></div>
<div id="141" class="line"><font class="Comment">;; hl GOOPS-`defines'</font></br></div>
<div id="142" class="line"><font class="Attribute">(</font><font class="ControlFlow">define</font><font class="Function">-method </font><font class="BuiltIn">(</font><font class="Normal">foo bar </font><font class="Constant">(</font><font class="Normal">baz <</font><font class="Keyword">vector</font><font class="Normal">></font><font class="Constant">)</font><font class="Normal"> qux</font><font class="BuiltIn">)</font><font class="Normal"> ...</font><font class="Attribute">)</font></br></div>
<div id="143" class="line"><font class="Attribute">(</font><font class="ControlFlow">define</font><font class="Function">-class </font><font class="Normal"><foo> ...</font><font class="Attribute">)</font></br></div>
<div id="144" class="line"><font class="Attribute">(</font><font class="ControlFlow">define</font><font class="Function">-generic </font><font class="Normal">foo</font><font class="Attribute">)</font></br></div>
<div id="145" class="line"><font class="Attribute">(</font><font class="ControlFlow">define</font><font class="Function">-accessor </font><font class="Normal">bar</font><font class="Attribute">)</font></br></div>
<div id="146" class="line"></br></div>
<div id="147" class="line"><font class="Comment">;; Keywords!</font></br></div>
<div id="148" class="line"><font class="Attribute">(</font><font class="Normal">blah #:foo </font><font class="Float">33</font><font class="Normal"> #:bar </font><font class="Float">44</font><font class="Attribute">)</font></br></div>
<div id="149" class="line"></br></div>
<div id="150" class="line"><font class="Comment">;; another convention for symbols:</font></br></div>
<div id="151" class="line"><font class="Normal">#{foo}#</font></br></div>
<div id="152" class="line"></br></div>
<div id="153" class="line"><font class="Normal">#{a</font></br></div>
<div id="154" class="line"><font class="Normal">few</font></br></div>
<div id="155" class="line"><font class="Normal">lines}#</font></br></div>
<div id="156" class="line"></br></div>
<div id="157" class="line"><font class="Normal">#{4711}#</font></br></div>
<div id="158" class="line"></br></div>
<div id="159" class="line"><font class="Comment">;; more chars.</font></br></div>
<div id="160" class="line"><font class="Char">#\n</font><font class="Normal">ul </font><font class="Char">#\n</font><font class="Normal">l </font><font class="Char">#\e</font><font class="Normal">sc </font><font class="Char">#\b</font><font class="Normal">s </font><font class="Char">#\b</font><font class="Normal">el </font><font class="Char">#\s</font><font class="Normal">yn </font><font class="Char">#\a</font><font class="Normal">ck </font><font class="Char">#\s</font><font class="Normal">p </font><font class="Comment">;; etc, utc, itc, oops (this is boring)</font></br></div>
<div id="161" class="line"></br></div>
<div id="162" class="line"><font class="Comment">#!</font></br></div>
<div id="163" class="line"><font class="Comment"> guile block-comment.</font></br></div>
<div id="164" class="line"><font class="Comment">!#</font></br></div>
<div id="165" class="line"></br></div>
<div id="166" class="line"><font class="Comment">;; now, a bit hairy:</font></br></div>
<div id="167" class="line"><font class="Comment">#! comment !#</font></br></div>
<div id="168" class="line"><font class="Comment">still comment!!!</font></br></div>
<div id="169" class="line"><font class="Comment">!#</font></br></div>
<div id="170" class="line"><font class="Normal">'now-no-comment-anymore</font></br></div>
<div id="171" class="line"></br></div>
<div id="172" class="line"><font class="Comment">;; more precise:</font></br></div>
<div id="173" class="line"><font class="Comment">#! comment !#</font></br></div>
<div id="174" class="line"><font class="Comment">still comment</font></br></div>
<div id="175" class="line"><font class="Comment">!# still comment!</font></br></div>
<div id="176" class="line"><font class="Comment">!#</font></br></div>
<div id="177" class="line"><font class="Normal">'now-no-comment-anymore</font></br></div>
<div id="178" class="line"></br></div>
<div id="179" class="line"><font class="Attribute">(</font><font class="Keyword">while</font><font class="Normal"> </font><font class="BuiltIn">(</font><font class="Normal">> foo </font><font class="Float">10</font><font class="BuiltIn">)</font><font class="Normal"> </font><font class="Comment">;; Highlight `while'.</font></br></div>
<div id="180" class="line"><font class="Normal"> </font><font class="BuiltIn">(</font><font class="Normal">set! foo </font><font class="Constant">(</font><font class="Normal">- foo </font><font class="Float">1</font><font class="Constant">)</font><font class="BuiltIn">)</font></br></div>
<div id="181" class="line"><font class="Normal"> </font><font class="BuiltIn">(</font><font class="Keyword">catch</font><font class="Normal"> </font><font class="DecVal">#t</font><font class="Normal"> </font><font class="Comment">;; Highlight `catch'.</font></br></div>
<div id="182" class="line"><font class="Normal"> </font><font class="Constant">(</font><font class="Keyword">lambda</font><font class="Normal"> </font><font class="Extension">()</font><font class="Normal"> </font><font class="Extension">(</font><font class="Keyword">display</font><font class="Normal"> foo</font><font class="Extension">)</font><font class="Constant">)</font></br></div>
<div id="183" class="line"><font class="Normal"> </font><font class="Constant">(</font><font class="Keyword">lambda</font><font class="Normal"> </font><font class="Extension">(</font><font class="Normal">key . args</font><font class="Extension">)</font></br></div>
<div id="184" class="line"><font class="Normal"> </font><font class="Extension">(</font><font class="Keyword">if</font><font class="Normal"> </font><font class="Others">(</font><font class="Normal">eq? key 'system-error</font><font class="Others">)</font></br></div>
<div id="185" class="line"><font class="Normal"> </font><font class="Others">(</font><font class="Keyword">break</font><font class="Others">)</font><font class="Normal"> </font><font class="Comment">;; Highlight `break'.</font></br></div>
<div id="186" class="line"><font class="Normal"> </font><font class="Others">(</font><font class="Keyword">continue</font><font class="Others">)</font><font class="Extension">)</font><font class="Constant">)</font><font class="BuiltIn">)</font><font class="Attribute">)</font><font class="Normal"> </font><font class="Comment">;; Highlight `continue'.</font></br></div>
</div>
</body>
</html>