Commits

Anonymous committed 54f710a

Add of_extended and to_extended functions. Add req parser. Add Error
exception. Add altz parser.

Comments (0)

Files changed (2)

 
 let fin s =
     match Lazy.force s with
-    | Cf_seq.Z -> Some ((), Lazy.lazy_from_val Cf_seq.Z)
+    | Cf_seq.Z -> Some ((), s)
     | _ -> None
 
 let rec alt a s =
     
     (** The serial composition operator.  Use [p1 %= p2] to unfold the output
         token stream of parser [p1] and use it as the input token stream for
-        parser [p2].  This is useful in the case that [p1] is a lexer created
-        with the {!Cf_lexer} module, and [p2] is a grammar that operates at the
-        level of lexical tokens output by [p1].
+        parser [p2].  This is useful in the case that [p1] is a lexical
+        analyzer created with the {!Cf_lex} module, and [p2] is a grammar that
+        operates at the level of lexical tokens output by [p1].
     *)
     val ( %= ): ('c, 'i, 'x) X.t -> ('c, 'x, 'o) X.t -> ('c, 'i, 'o) X.t
 end