From a387fd86a870bd1a34f206ec89c32d9d5c4d1c77 Mon Sep 17 00:00:00 2001 From: Bruce Hill Date: Wed, 31 Jan 2018 15:31:06 -0800 Subject: Added colons for aesthetics. --- lib/training_wheels.nom | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/training_wheels.nom') 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" -- cgit v1.2.3