aboutsummaryrefslogtreecommitdiff
path: root/lib/training_wheels.nom
diff options
context:
space:
mode:
authorBruce Hill <bitbucket@bruce-hill.com>2018-01-31 15:31:06 -0800
committerBruce Hill <bitbucket@bruce-hill.com>2018-01-31 15:31:13 -0800
commita387fd86a870bd1a34f206ec89c32d9d5c4d1c77 (patch)
treeaedb8d409cabefb1680f581067ea3000f8085189 /lib/training_wheels.nom
parentb1406a3203901392b98df431157e04f9a9164ff2 (diff)
Added colons for aesthetics.
Diffstat (limited to 'lib/training_wheels.nom')
-rw-r--r--lib/training_wheels.nom4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/training_wheels.nom b/lib/training_wheels.nom
index c4a9903..30c20fc 100644
--- a/lib/training_wheels.nom
+++ b/lib/training_wheels.nom
@@ -26,11 +26,11 @@ parse [error!, panic!, fail!, abort!] as: barf!
parse [error %, panic %, fail %, abort %] as: barf %
parse [assert %condition %message] as: assume %condition or barf %message
parse [%cond ? %if_true %if_false] as: %if_true if %cond else %if_false
-compile [function %args %body, lambda %args %body] to
+compile [function %args %body, lambda %args %body] to:
%body_lua <- (%body as lua)
%statements <- ((%body_lua's "statements") or "return \(%body_lua's "expr");")
%locals <- (% for all ((%body_lua's "locals") or []))
- for all (%args's "value")
+ for all (%args's "value"):
lua> "utils.remove_from_list(\%locals, \(% as lua expr));"
if: (size of %locals) > 0
%statements <- "local \(%locals joined with ", ");\n\%statements"