* Compiler.inc
* Gregory White <glwhite@netconnect.com.au>
* Posted to the Snobol list (March 2003)
* and adapted as a function

	DEFINE('COMPILER()')			:(COMPILER_END)
compiler
IDprocessor    :($('COMPILER' SIZE(DATE())))
COMPILER17 compiler 	= 'SPITBOL' 	:(return)
COMPILER19 compiler	= 'CSNOBOL4'	:(return)
COMPILER20 compiler	= 'SNOBOL4+'  	:(return)
compiler_end
* Uses the different size of DATE() to detect the compiler used