Routine to call a routine from a table - KVonGit/zil-stuff GitHub Wiki

<ROUTINE TEST-TBL-RTN1 ()
  <TELL "1" CR>
>

<ROUTINE TEST-TBL-RTN2 ()
  <TELL "2" CR>
>

<CONSTANT MY-TEST-RTN-TBL 
  <LTABLE
    TEST-TBL-RTN1
    TEST-TBL-RTN2
  >
>

<SYNTAX TESTME = TESTME-R>
<ROUTINE TESTME-R ()
  <TELL "TESTING..." CR>
  <APPLY <NTH ,MY-TEST-RTN-TBL 1>>
>