summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--sly/actor.scm6
1 files 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)