X-Git-Url: https://git.stderr.nl/gitweb?p=matthijs%2Fmaster-project%2Freport.git;a=blobdiff_plain;f=Chapters%2FIntroduction.tex;h=e9fa26f5ed48df2d4e293c7550cd23e88491fd24;hp=7458e2f850ade083fae0d0cab4f20f27ff0cd8dd;hb=21c8a86147c874c29156d1859a670c3f7c6df7ee;hpb=ebd7336493f39d3da5a05477c9da04199ad2079e

diff --git a/Chapters/Introduction.tex b/Chapters/Introduction.tex
index 7458e2f..e9fa26f 100644
--- a/Chapters/Introduction.tex
+++ b/Chapters/Introduction.tex
@@ -1,4 +1,4 @@
-\chapter{Introduction}
+\chapter[chap:introduction]{Introduction}
 This thesis describes the result and process of my work during my
 Master's assignment. In these pages, I will try to introduce the world
 of hardware descriptions, the world of functional languages and
@@ -26,6 +26,7 @@ andword = map not
 
   \startMPcode
     % Create objects
+    save a, inp, out;
     newCircle.inp(btex $\overrightarrow{input}$ etex) "framed(false)";
     num := 4;
     for i=1 upto num:
@@ -55,11 +56,6 @@ andword = map not
     drawObj(out);
     % Draw a dotted line between the middle operations
     ncline(a2)(a3) "linestyle(dashed withdots)", "arrows(-)";
-
-    % Clear everything
-    clearObj a;
-    clearObj inp;
-    clearObj out;
   \stopMPcode
 
   Slightly more complicated is the following incremental summation of values:
@@ -140,7 +136,7 @@ sum' (x:xs) acc = acc' : (sum' xs acc')
     newCircle.a(btex + etex);
     newCircle.out(btex $output$ etex) "framed(false)";
    
-    % Punt inp, a and out in one horizontal line, with reg above a
+    % Put inp, a and out in one horizontal line, with reg above a
     reg.c-a.c=(0cm, 2cm);
     a.c-inp.c=(3cm, 0cm);
     out.c-a.c=(3cm, 0cm);