zpy

A lisp like language written in hare
Log | Files | Refs

help.ha (293B)


      1 use zpy::lex;
      2 use fmt;
      3 
      4 fn want(l: *lex::lexer, want: []lex::types) (lex::token | lex::error | error) = {
      5 	let n = lex::next(l)?;
      6 
      7 	//fmt::println(lex::strtypes(n.ty))!;
      8 	//printrest(l);
      9 
     10 	for (let ty .. want) {
     11 		if (n.ty == ty)  {
     12 			return n;
     13 		};
     14 	};
     15 	return ("Want failed", 0): error;
     16 };