HELP PDPART                                         Steven Hardy, January 78

    pdpart(<closure>) -> procedure

PDPART takes as argument a procedure closure and returns the procedure upon
which the closure is based, e.g.

    vars iscolour;
    member(%[red orange yellow green blue indigo violet]%) -> iscolour;

    pdpart(iscolour) =>
    ** <procedure member>

See also HELP
    *CLOSURES  - on the construction of closures in POP-11
    *PARTAPPLY - produces a closure of an existing procedure
    *FROZVAL   - accesses values frozen into procedure closures
    *ISCLOSURE - a recogniser procedure for closures