From d42d20c50ae0443e2ac5ffa6492ad57745e27830 Mon Sep 17 00:00:00 2001 From: Bruce Hill Date: Mon, 9 Apr 2018 18:58:05 -0700 Subject: Re-added callstack callsite info. It's a bit hacky, but better than nothing. --- lib/object2.nom | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lib') diff --git a/lib/object2.nom b/lib/object2.nom index 0e8c6fb..e7770bc 100644 --- a/lib/object2.nom +++ b/lib/object2.nom @@ -168,13 +168,13 @@ compile [define object %classname %class_body] to: __lt=\%class_identifier['< %'], __le=\%class_identifier['<= %'], }; - nomsu:define_action("instances of "..\%class_identifier.name, "lib/class.nom", function() + nomsu:define_action("instances of "..\%class_identifier.name, "lib/class.nom", function(__callsite) return utils.keys(\%class_identifier.instances); end, ""); - nomsu:define_action("new "..\%class_identifier.name.." %instance", "lib/class.nom", function(_instance) + nomsu:define_action("new "..\%class_identifier.name.." %instance", "lib/class.nom", function(__callsite, _instance) return \%class_identifier(_instance); end, ""); - nomsu:define_action("new "..\%class_identifier.name, "lib/class.nom", function() + nomsu:define_action("new "..\%class_identifier.name, "lib/class.nom", function(__callsite) return \%class_identifier({}); end, ""); end -- End of definition of \%class_identifier -- cgit v1.2.3