Lines Matching full:prototype
137 (* prototype
156 'Token.Kwd '(' ?? "expected '(' in prototype";
158 'Token.Kwd ')' ?? "expected ')' in prototype" >] ->
160 Ast.Prototype (id, Array.of_list (List.rev args))
165 'Token.Kwd '(' ?? "expected '(' in prototype";
167 'Token.Kwd ')' ?? "expected ')' in prototype" >] ->
176 Ast.Prototype (name, args)
180 raise (Stream.Error "expected function name in prototype")
182 (* definition ::= 'def' prototype expression *)
191 Ast.Function (Ast.Prototype ("", [||]), e)
193 (* external ::= 'extern' prototype *)
