diff options
Diffstat (limited to 'lib/things.nom')
| -rw-r--r-- | lib/things.nom | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/lib/things.nom b/lib/things.nom index e10b9eb..cf5a53f 100644 --- a/lib/things.nom +++ b/lib/things.nom @@ -106,14 +106,14 @@ externally (a class named $classname with $members ((initialize $it)'s meaning)) barf "Cannot set \$key, it's not one of the allowed member fields." set $class's metatable to { - .__tostring = ($class -> $class.__type), .__call = ( + .__tostring = ($class -> $class.__type) + .__call = for ($class with $initial_values): if ($initial_values == (nil)): return $class set $initial_values's metatable to $class if $initial_values.set_up: $initial_values, set up return $initial_values - ) } if ((initialize)'s meaning): @@ -136,8 +136,15 @@ externally (a class named $classname with $members ((initialize $it)'s meaning)) return Lua (" - \$class_id = a_class_named_1_with(\(quote $classname.stub), \($members as lua)\((Lua ", function(\$class_id)\n \$body_lua\nend") if $class_body else "")\ - ..) + \$class_id = a_class_named_1_with(\(quote $classname.stub), \($members as lua)\( + ( + Lua (" + , function(\$class_id) + \$body_lua + end + ") + ) if $class_body else "" + )) a_\$class_id = function(initial_values) return \($classname.stub, as lua id)(initial_values \ ..or {}) end an_\$class_id, a_\($class_id)_with, an_\($class_id)_with = a_\$class_id, a_\$class_id, a_\$class_id |