A Peek into Pugs Internals #13

[patch]

  - unsafeEvalExp $ mkSym nameExported
  + -- %*INC<This::Package><exports><&this_sub>
  + --   = expression-binding-&this_sub
  + unsafeEvalExp $
  +   Syn "=" [Syn "{}" [Syn "{}" [Syn "{}"
  +     [Var "%*INC", Val $ VStr pkg], Val (VStr "exports")]
  +     , Val $ VStr name], Val sub]
continued...
Copyright © 2006 Gaal Yahas