Functional programming 使用OCaml/LLVM教程时出现语法错误

我正在阅读使用ocaml在LLVM上实现万花筒语言的教程。但是，给定的代码lexer.ml不编译

代码的第二行有语法错误

let rec lex = parser
   (* Skip any whitespace. *)
   | [< ' (' ' | '\n' | '\r' | '\t'); stream >] -> lex stream

let rec lex=parser
（*跳过任何空格。*）
|[<'（''|'\n'|'\r'|'\t'）；流>]->lex流

---

为什么会这样？谢谢。

这是一种旧的流语法，由camlp4提供。看。启用语法支持在很大程度上取决于构建系统。请提供更多信息，我将更新帖子。

您是想自己编译代码，还是使用第2章代码列表中的完整代码（包括

\u标签

文件）？您使用哪个命令进行编译？