Files
harbour-core/harbour/tests/working/block2.PRG

17 lines
202 B
Plaintext

// CodeBlocks management
function Main()
local bBlock := GenBlock()
Eval( bBlock, "I am a ", "codeblock" )
QOut( "ok" )
return nil
function GenBlock()
return { | c, d | QOut( c + d ) }