`*-----------------------------------*`

`*           >>>Pico 2.0<<<          *`

`*         Wolfgang De Meuter        *`

`*  VUB Programming Technology Lab   *`

`*               2004               *`

`*-----------------------------------*`

`*  Grabbing Current Dictionaries    *`

`*    Evaluating in Dictionaries     *`

`*-----------------------------------*`

{ `load("MetaAbstractions.pco");

  withDct(exp(dct))::

    exp(META.FUN_DCT(exp));

  inDct(exp(),dct)::{

    META.FUN_DCT_(exp,dct);

    exp() };

  dct2tab(dct)::{

    inner(d,i)::

      if(is_void(d),

         result[i]:void,

         {t:inner(META.DCT_DCT(d),i+1);t[i]:=META.DCT_NAM(d);t});

     inner(dct,1)};

  `* SAMPLE CODE *`

  currentDct:dct2tab(withDct(dct));

  display("Evaluation loaded",eoln)

}