* Compiler.inc
* Gregory White <[email protected]>
* 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