diff options
| author | Boutade <thegoofist@protonmail.com> | 2019-10-18 15:48:53 -0500 |
|---|---|---|
| committer | Boutade <thegoofist@protonmail.com> | 2019-10-18 15:48:53 -0500 |
| commit | 55969641b27d4419d6b70f2244ca0a2afd5f69e5 (patch) | |
| tree | 6f97bf935504e57c8d0874c0ba5fb320ec6e99c3 | |
| parent | a942713536d83394f9bc7374a21c862a326834f1 (diff) | |
chill out by standing still
| -rw-r--r-- | the-price-of-a-cup-of-coffee.lisp | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/the-price-of-a-cup-of-coffee.lisp b/the-price-of-a-cup-of-coffee.lisp index 037eaed..b73e191 100644 --- a/the-price-of-a-cup-of-coffee.lisp +++ b/the-price-of-a-cup-of-coffee.lisp @@ -649,7 +649,10 @@ (if (walking-p *nance*) (unless (sick-p *nance*) (decf (percent *cold-meter*) 0.0004)) - (incf (percent *cold-meter*) 0.0003)))) + (progn + (incf (percent *cold-meter*) 0.0003) + (unless (sick-p *nance*) + (decf (percent *stress-meter*) 0.0003)))))) |