diff options
| author | Bruce Hill <bruce@bruce-hill.com> | 2018-12-30 23:58:47 -0800 |
|---|---|---|
| committer | Bruce Hill <bruce@bruce-hill.com> | 2018-12-30 23:58:47 -0800 |
| commit | 5059c081ac624ede925d5256885509ddd17181c6 (patch) | |
| tree | 0457d135e5193126bf73466bfaae09df94ab8a7d /compatibility/compatibility.nom | |
| parent | ec69ee6f62016a2edcc13e3183cbe4cadd75717f (diff) | |
Auto-upgraded code.
Diffstat (limited to 'compatibility/compatibility.nom')
| -rw-r--r-- | compatibility/compatibility.nom | 7 |
1 files changed, 5 insertions, 2 deletions
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) ") |