2.16.2 Printing a Tagged Object |
Example |
/**/ L := ["Dave", "March 14", 1959, 372]; /**/ M := tagged(L,"MiscData"); /**/ Define SpecialPrinting(Dev, Obj) /**/ Print Obj[1],"'s birthday is: ", Obj[2] on Dev; /**/ EndDefine; /**/ PrintTagged := record[MiscData := SpecialPrinting]; /**/ Print M; Dave's birthday is: March 14 |