introduce toplevel object main; close #327

src/kernel.c

@@ -64,6 +64,9 @@ mrb_obj_inspect(mrb_state *mrb, mrb_value obj)
   else if (mrb_nil_p(obj)) {
     return mrb_str_new(mrb, "nil", 3);
   }
+  else if (mrb_type(obj) == MRB_TT_MAIN) {
+    return mrb_str_new(mrb, "main", 4);
+  }
   return mrb_funcall(mrb, obj, "to_s", 0, 0);
 }
 

src/state.c

@@ -97,6 +97,8 @@ mrb_add_irep(mrb_state *mrb, int idx)
 mrb_value
 mrb_top_self(mrb_state *mrb)
 {
-  // for now
-  return mrb_nil_value();
+  mrb_value v;
+
+  MRB_SET_VALUE(v, MRB_TT_MAIN, value.i, 0);
+  return v;
 }