SCClassLibrary/Common/Core/Message.sc

   1 Message {
   2         var <>receiver, <>selector, <>args;
   3
   4         *new { arg receiver, selector, args;
   5                 ^super.newCopyArgs(receiver, selector, args);
   6         }
   7         value { arg ... moreArgs;
   8                 ^receiver.performList(selector, args ++ moreArgs);
   9         }
  10         storeArgs { ^[receiver, selector, args] }
  11 }
  12
  13 MethodQuote {
  14         var <>selector;
  15
  16         *new { arg selector;
  17                 ^super.newCopyArgs(selector);
  18         }
  19         value { arg receiver ... args;
  20                 ^receiver.performList(selector, args);
  21         }
  22         storeArgs { ^[selector] }
  23 }