X-Git-Url: http://plrg.eecs.uci.edu/git/?p=oota-llvm.git;a=blobdiff_plain;f=docs%2Ftutorial%2FOCamlLangImpl2.rst;h=905b306746f1fd670c2ba4200ba8bc91281e6bfd;hp=83a22ab22d4f438d73fed8a6aa2346ec7a754fb1;hb=225146951e6572dc9a82dc3579aa440fd2db0326;hpb=a2e6e6bcf8cc37ad91b130b9d02d9fe951fbb4d1

diff --git a/docs/tutorial/OCamlLangImpl2.rst b/docs/tutorial/OCamlLangImpl2.rst
index 83a22ab22d4..905b306746f 100644
--- a/docs/tutorial/OCamlLangImpl2.rst
+++ b/docs/tutorial/OCamlLangImpl2.rst
@@ -339,6 +339,9 @@ expression:
             (* Eat the binop. *)
             Stream.junk stream;
 
+            (* Parse the primary expression after the binary operator *)
+            let rhs = parse_primary stream in
+
             (* Okay, we know this is a binop. *)
             let rhs =
               match Stream.peek stream with