src/st-context.c

   1
   2 #include "st-context.h"
   3 #include "st-array.h"
   4 #include "st-method.h"
   5 #include "st-object.h"
   6 #include "st-behavior.h"
   7 #include "st-universe.h"
   8
   9 st_oop
  10 st_message_new (st_oop selector, st_oop arguments)
  11 {
  12     st_oop object;
  13
  14     object = st_object_new (st_global_get ("Message"));
  15
  16     ST_OBJECT_FIELDS (object)[0] = selector;
  17     ST_OBJECT_FIELDS (object)[1] = arguments;
  18
  19     return object;
  20 }