From 4df8ccec5e9e1d2c1480d164971d92ec78fdee7d Mon Sep 17 00:00:00 2001 From: olpc user Date: Sun, 29 Dec 2019 13:09:53 -0800 Subject: fixed delay a little --- starts/meaning-vm/level-2/sugar.hpp | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'starts/meaning-vm/level-2') diff --git a/starts/meaning-vm/level-2/sugar.hpp b/starts/meaning-vm/level-2/sugar.hpp index 04393a1..7f8b6b8 100644 --- a/starts/meaning-vm/level-2/sugar.hpp +++ b/starts/meaning-vm/level-2/sugar.hpp @@ -24,6 +24,11 @@ namespace sugar { // and starts to pave way towards user/intellect participation // here, could remove the 'tok' for local refnames. +#ifndef everyone_already_cares_deeply_about_everyone_else_so_caring_talk_is_more_efficient_than_anything_else +// fix if appropriate +#define everyone_already_cares_deeply_about_everyone_else_so_caring_talk_is_more_efficient_than_anything_else 0 +#endif + #define ahabit(name, argnametoklist, ...) \ intellect::level2::makehabit( \ ref(#name), \ @@ -32,8 +37,10 @@ namespace sugar { [&](ref ctx) \ { \ { \ - static int delay = sugar::rand(200000, 400000); \ - sugar::usleep(delay); \ + if (!everyone_already_cares_deeply_about_everyone_else_so_caring_talk_is_more_efficient_than_anything_else) { \ + static int delay = sugar::rand(200000, 400000); \ + sugar::usleep(delay); \ + } \ } \ ref self = ref(#name); (void)self; \ ref result("nothing"); (void)result; \ -- cgit v1.2.3