# support code for batch mode
# for backtrace printing etc..

# todo: rename -push/pop stuff
#       check if input stack can be removed


# set error handlers
: brace ;


: batch 	
	() swapreturn drop		# start with clean sheet
	interpret-stream		# interpret stream
	bye ;                           # done


: stdin brace 0 "<stdin>" "r" open-fd batch ;
: file  brace "r" open-file batch ;