diff options
| author | Bruce Hill <bitbucket@bruce-hill.com> | 2018-01-10 20:45:03 -0800 |
|---|---|---|
| committer | Bruce Hill <bitbucket@bruce-hill.com> | 2018-01-10 20:45:03 -0800 |
| commit | 53a9d4eae888d2b09c68fcd5dc14ae51f5d07c31 (patch) | |
| tree | 87c21e8c2400ae5a51200412329e6b32892fe7ac /lib/utils2.nom | |
| parent | 09b64e034147969a3621c4c46075741a8034c423 (diff) | |
Pretty much mostly working.
Diffstat (limited to 'lib/utils2.nom')
| -rw-r--r-- | lib/utils2.nom | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/utils2.nom b/lib/utils2.nom index 2fa29f7..8077203 100644 --- a/lib/utils2.nom +++ b/lib/utils2.nom @@ -11,7 +11,7 @@ compile [say %str] to: compile [do %action] to code: (%action as lua statements) if ((%action's "type") == "Thunk") - ..else "(\(%action as lua))(nomsu, vars);" + ..else "(\(%action as lua))(nomsu);" # With statement compile [with %assignments %action] to code: @@ -33,10 +33,10 @@ compile [with %assignments %action] to code: do \%setup local fell_through = false; - local ok, ret1, ret2 = pcall(function(nomsu, vars) + local ok, ret1, ret2 = pcall(function(nomsu) \(%action as lua statements); fell_through = true; - end, nomsu, vars); + end, nomsu); \(join ("\((%->"var") as lua) = old_value\(%->"i");" for all %data) with glue "\n ") if not ok then nomsu:error(ret1); end if not fell_through then |
