Document.

1 files changed, 1 insertions, 1 deletions

diff --git a/cpu/alu.ml b/cpu/alu.ml
index e0c1ef9..f437bd3 100644
--- a/cpu/alu.ml
+++ b/cpu/alu.ml
@@ -51,7 +51,7 @@ let rec nadder_with_carry n a b c_in =
 
 let nadder n a b =
     let a, b = nadder_with_carry n a b (const "0") in
-    ignore b a
+    b ^. a
 
 let rec nsubber n a b =
     zeroes n (* TODO *)