changxiliu - 2015-11-13

ocaml.c have bug when process the file "gmacs.ml"
1805 st.name = vStringNew ();
1806 st.cp = fileReadLine ();
1807 toDoNext = &globalScope;
1808 if (!toDoNext) //bug; add
1809 return ; //bug; add
1810 tok = lex (&st);
1811 while (tok != Tok_EOF)
1812 {
1813 if (!toDoNext) //bug; add it
1814 break; //bug; add it
1815 (*toDoNext) (st.name, tok);
1816 tok = lex (&st);
1817 }
email:410210467@qq.com