Update forth_computer