From 0a59d8631e2acb20601e72c6f79d7ce193633844 Mon Sep 17 00:00:00 2001 From: olpc user Date: Sat, 14 Dec 2019 11:48:23 -0800 Subject: missing changes --- starts/meaning-vm/level-2/sugar.hpp | 2 ++ 1 file changed, 2 insertions(+) (limited to 'starts/meaning-vm/level-2/sugar.hpp') diff --git a/starts/meaning-vm/level-2/sugar.hpp b/starts/meaning-vm/level-2/sugar.hpp index bff945b..5b3b150 100644 --- a/starts/meaning-vm/level-2/sugar.hpp +++ b/starts/meaning-vm/level-2/sugar.hpp @@ -32,8 +32,10 @@ usleep(delay); \ } \ ref self = name; (void)self; \ + ref result("nothing"); (void)result; \ _macro_call(_macro_for_each_parens, _macro_habit_set_posarg, _macro_habit_set_posarg _macro_comma_remove_parens(argnametoklist)); \ __VA_ARGS__ \ + if (result != ref("nothing")) { ctx.link(ref("result"), result); } }); #define _macro_habit_argnameref(name, tok) \ ref(#name) -- cgit v1.2.3