var eof = tree.n_eof
if eof isa AError then
- self.fatal_error(null, "Fatal Error: {eof.message}")
+ self.fatal_error(null, "Fatal Error: {eof.message}.")
abort
end
return tree.n_base.as(not null)
var nmodule = parse_module(string)
var nclassdefs = nmodule.n_classdefs
if nclassdefs.length != 1 then
- self.fatal_error(null, "Fatal Error: not a classdef")
+ self.fatal_error(null, "Fatal Error: not a classdef.")
abort
end
return nclassdefs.first
var nclassdef = parse_classdef(mod_string)
var npropdefs = nclassdef.n_propdefs
if npropdefs.length != 1 then
- self.fatal_error(null, "Fatal Error: not a propdef")
+ self.fatal_error(null, "Fatal Error: not a propdef.")
abort
end
return npropdefs.first
# Parse a super class declaration
# Fatal error if the `string` is not a syntactically correct super class declaration
- fun parse_superclass(string: String): ASuperclass
+ fun parse_superclass(string: String): APropdef
do
var mod_string = "class Dummy\nsuper {string}\nend"
var nclassdef = parse_classdef(mod_string).as(AStdClassdef)
- var nsuperclasses = nclassdef.n_superclasses
+ var nsuperclasses = nclassdef.n_propdefs
if nsuperclasses.length != 1 then
- self.fatal_error(null, "Fatal Error: not a super class declaration")
+ self.fatal_error(null, "Fatal Error: not a super class declaration.")
abort
end
return nsuperclasses.first