Source

ircfs / plugins / forth.brc

Full commit

+cmd forth fortheval

fn forth {
 if ( ~ $text(1) [Ff][Tt][Hh] ) {
  * = $text ; shift
  ifs=() { reply `{ fth -e $^* } }
 }
}

fn fortheval {
 if ( ~ $text(1) [Ff][Tt][Hh][Ee] ) {
	* = $text ; shift
	*=(: t $* ';' t)
	ifs=() { reply `{ fth -e $^* } }
 }
}