+ # Create some primitive default classes if they do not exists
+ fun process_default_classes(tc: ToolContext)
+ do
+ var name = once ("Object".to_symbol)
+ if not has_global_class_named(name) then
+ var c = new MMSrcLocalClass(self, name, null, 0)
+ c.new_global
+ src_local_classes[name] = c
+ end
+ name = once ("Bool".to_symbol)
+ if not has_global_class_named(name) then
+ var c = new MMSrcLocalClass(self, name, null, 0)
+ c.new_global
+ src_local_classes[name] = c
+ end