From 5059c081ac624ede925d5256885509ddd17181c6 Mon Sep 17 00:00:00 2001 From: Bruce Hill Date: Sun, 30 Dec 2018 23:58:47 -0800 Subject: Auto-upgraded code. --- compatibility/compatibility.nom | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'compatibility/compatibility.nom') diff --git a/compatibility/compatibility.nom b/compatibility/compatibility.nom index bc34c4f..a83011f 100644 --- a/compatibility/compatibility.nom +++ b/compatibility/compatibility.nom @@ -34,7 +34,9 @@ externally (upgrade action $stub to $version via $upgrade_fn) means: return $replacements.($t.1) ..else: external $needs_mangle = (yes) - return "SyntaxTree{type=\(quote $t.type), source=\(quote "\($t.source)"), \(quote (mangle $t.1))}" + return (" + SyntaxTree{type=\(quote $t.type), source=\(quote "\($t.source)"), \(quote (mangle $t.1))} + ") ($t is syntax tree): $args = [] @@ -54,7 +56,8 @@ externally (upgrade action $stub to $version via $upgrade_fn) means: $retval = (make tree $body) $lua, add Lua (" - upgrade_action_1_to_2_via(\(quote $action.stub), \($version as lua expr), function(\(\$tree as lua id)) + upgrade_action_1_to_2_via(\(quote $action.stub), \($version as lua expr), function(\ + ..\(\$tree as lua id)) return \$retval end) ") -- cgit v1.2.3