Quickbook: Fix indented code parsing in lists.

[SVN r77346]

src/main_grammar.cpp

@@ -242,7 +242,7 @@ namespace quickbook
             , no_eols(true)
             , actions_(actions)
             , check_indentation(*this, &main_grammar_local::check_indentation_impl)
-            , check_code_block(*this, &main_grammar_local::check_indentation_impl)
+            , check_code_block(*this, &main_grammar_local::check_code_block_impl)
             , start_blocks(*this, &main_grammar_local::start_blocks_impl)
             , end_blocks(*this, &main_grammar_local::end_blocks_impl)
             , in_list(*this)

test/list_test-1_6.gold

@@ -495,4 +495,32 @@
       </listitem>
     </itemizedlist>
   </section>
+  <section id="list_test.indented_code_blocks_in_lists">
+    <title><link linkend="list_test.indented_code_blocks_in_lists">Indented code
+    blocks in lists</link></title>
+    <itemizedlist>
+      <listitem>
+        <simpara>
+          A
+<programlisting><phrase role="identifier">B</phrase>
+</programlisting>
+          <para>
+            C
+          </para>
+        </simpara>
+      </listitem>
+      <listitem>
+        <simpara>
+          D
+<programlisting><phrase role="identifier">E</phrase>
+</programlisting>
+        </simpara>
+      </listitem>
+      <listitem>
+        <simpara>
+          F
+        </simpara>
+      </listitem>
+    </itemizedlist>
+  </section>
 </article>

test/list_test-1_6.quickbook

@@ -133,3 +133,15 @@ Don't end list with comment 2:
    D2
 
 [endsect]
+
+[section Indented code blocks in lists]
+
+* A
+
+    B
+  C
+* D
+
+    E
+* F
+[endsect]