Function: forth-block-p

Guess whether the current buffer is a Forth block file.