From 1a83132fec473c4a5c590acd8b50cf88e4d2965e Mon Sep 17 00:00:00 2001 From: David Thompson Date: Mon, 25 Apr 2016 08:51:47 -0400 Subject: actor: Fix effect handling in 'both'. Bug: If action B was completed then the effects it returned were discarded. --- sly/actor.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/sly/actor.scm b/sly/actor.scm index 5b6d7e3..90803e7 100644 --- a/sly/actor.scm +++ b/sly/actor.scm @@ -133,9 +133,9 @@ to perform." (if next (let-values (((next* new-effects* new-object*) (b world new-effects new-object))) - (if next* - (values (both next next*) new-effects* new-object*) - (values next new-effects new-object*))) + (values (if next* (both next next*) next) + new-effects* + new-object*)) (b world new-effects new-object))))) (define (then a b) -- cgit v1.2.3