Extract TRIVIAL-QUIT function from forth-metacompiler.