chuck/types/subr/MalDoSwap.ck

   1 public class MalDoSwap extends MalSubr
   2 {
   3     // HACK: necessary for apply step
   4     "swap!" => name;
   5
   6     fun MalObject call(MalObject args[])
   7     {
   8         args[0]$MalAtom @=> MalAtom atom;
   9         args[1]$MalObject @=> MalObject value;
  10
  11         value @=> atom.object;
  12
  13         return value;
  14     }
  15 }