X-Git-Url: https://git.stderr.nl/gitweb?p=matthijs%2Fmaster-project%2Fdsd-paper.git;a=blobdiff_plain;f=c%CE%BBash.lhs;fp=c%CE%BBash.lhs;h=e4a570ed3354d9f8b9af55ab5a34034255f4b3bb;hp=3f8507803f854344791797d11fdfa051309a9199;hb=cb7870f3ed653aaf6241e014b2491178460ffb3c;hpb=25f9828b0ed71e47e6cb7261b6245ce383c6cf40

diff --git "a/c\316\273ash.lhs" "b/c\316\273ash.lhs"
index 3f85078..e4a570e 100644
--- "a/c\316\273ash.lhs"
+++ "b/c\316\273ash.lhs"
@@ -1456,7 +1456,7 @@ cpu (State s) input addrs opc = (State s', out)
               , fu mul            inputs (addrs!3)
               ]
     inputs    =   0 +> (1 +> (input +> s))
-    out       =   head s'
+    out       =   last s
 \end{code}
 \end{minipage}
 \begin{minipage}{0.07\linewidth}