Bruce/nomsu
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix for some old syntax.

Browse Source
This commit is contained in:
Bruce Hill 2018-01-24 02:55:41 -08:00
parent a33cb2598f
commit 42d950f7b4
1 changed files with 3 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lib/collections.nom
View File

@ -53,17 +53,9 @@ compile [%list ->* %indices] to
Expected List for chained lookup, not \(%indices's "type") Expected List for chained lookup, not \(%indices's "type")
%ret <- "\(%list as lua)" %ret <- "\(%list as lua)"
for %index in (%indices's "value") for %index in (%indices's "value")
%ret join= "[\(%index as lua)]" <- %ret + "[\(%index as lua)]"
return "\%ret" return "\%ret"
# Assignment
compile [..]
%list's %index = %new_value, %index st in %list = %new_value, %index nd in %list = %new_value
%index rd in %list = %new_value, %index th in %list = %new_value, %index in %list = %new_value
%list -> %index = %new_value
..to code
"(\(%list as lua))[\(%index as lua)] = \(%new_value as lua);"
compile [append %item to %list, add %item to %list] to compile [append %item to %list, add %item to %list] to
"table.insert(\(%list as lua), \(%item as lua))" "table.insert(\(%list as lua), \(%item as lua))"
@ -159,11 +151,11 @@ compile [sort %items by %key_expr] to ".."
end) end)
action [%items sorted] action [%items sorted]
%copy = (% for all %items) %copy <- (% for all %items)
sort %copy sort %copy
return %copy return %copy
action [%items sorted by %key] action [%items sorted by %key]
%copy = (% for all %items) %copy <- (% for all %items)
sort %copy by %key sort %copy by %key
return %copy return %copy